Pascal/Turbo Pascal - Ayudenme

Hola si me pueden ayudar es que estoy en primer año de programacion y no entiendo mucho de pascal el problema dice lo siguiente "Desarrolle un procedimiento que determine el numero de valores iguales a 0.00 almacrenados en una matriz 5 x5 y el número de aquellos valores mayores de 10,000 que se encuentran encima de la diagonal principal. Suponga que los datos ya an sido captados" si me pueden ayudar porfa

uses crt;
type
matriz=array[1..5,1..5] of real;

var
mat:matriz;
cont0,cont10,p,f,c,h:byte;

procedure buscar(mat:matriz; var cont0,cont10:byte);
var
j,k:byte;

begin

for j:=1 to 5 do
for k:=1 to 5 do
if mat[j,k]=0 then
cont0:=cont0+1;

j:=1;
k:=2;

while j<=5 do
begin
while k<=5 do
begin
if mat[j,k]> 10000 then
cont10:=cont10+1;
inc(k)
end;
k:=j+2;
inc(j);
end;

end;
begin
clrscr;
gotoxy(20,1);
writeln('llene la matriz con numeros');
h:=2;
for f:=1 to 5 do
begin
p:=1;
for c:=1 to 5 do
begin
gotoxy(p,h);
read(mat[f,c]);
p:=p+10;
end;
inc(h);
end;

buscar(mat,cont0,cont10);
writeln('cantidad de ceros encontrados ',cont0);
write('candidad de numeros mayores que 10000 encontrados ', cont10);
readkey;
end.