Проверить, есть ли в целочисленном двумерном массиве элемент с заданным значением — Pascal(Паскаль)

const 
n=10;
m=4;
var
a:array[1..n,1..n] of integer;
i,j,z,k:integer;
begin
for i:=1 to m do
    begin 
        for j:=1 to n do
          begin
            a[i,j]:=random(40);
            write('  ',a[i,j]:3);
          end;
        writeln();
    end;
writeln('--------') ; 
    write('Введите число для поиска z=');
    readln(z);
    k:=0;
    for i:=1 to m do
    for j:=1 to n do
    if a[i,j]=z then k:=1;
    if k=1 then write('Число ',z,' в массиве есть!')
    else write('Числа ',z,' в массиве нет!');
writeln('--------') ; 

end.