Foro de elhacker.net

Hola a todos  vengo a pedir ayuda con un enunciado que no puedo lograr es el siguiente:
realizar un programa donde el usuario ingrese una matriz cuadrada con números enteros y retorne los números pares, el programa también debe retornar los valores que compongan la matriz triangular superior.


si alguien puede ayudarme desde ya muchas gracias (estoy intentándolo desde la mañana es este el único enunciado que no logro y ya no se que hacer).

PROGRAM matrizes;
Uses
crt;

Const
N=14;

type
Matriz = array [1..N,1..N] of integer;
tpmatriz = ^Matriz;

Var
dimension: integer;
a,b,prod: Matriz;


Procedure LeerMatriz(var mat:Matriz);
Var
fil, col: 1..N;
Begin
For fil:=1 to dimension do
For col:= 1 to dimension do
begin
Write(' Introduzca el componente a' ,fil,'.' , col, ': ');
Readln(mat[fil,col]);
end;
end.    {no me reconoce el ultima end ya sea con ; o .  el error me figura en end