Дан массив р(5,5) из блока данных. вывести массив на экран. найти и вывести минимальный элемент среди элементов массива кратных 5.

Uses crt;
var a:array[1..5,1..5] of integer;   
i,j,n,k:integer;
begin
randomize;
for i:=1 to 5 do begin   
for j:=1 to 5 do begin       
a[i,j]:=random(101)-50;       
write(a[i,j]:4);   
end;   
writeln;
end;
n:=50;
for i:=1 to 5 do   
for j:=1 to 5 do begin       
if a[i,j] mod 5=0 then k:=a[i,j];       
if k<n then n:=k;   
end;
writeln(Минимальный элемент кратный 5=',n);
end.