Найти минимальный элемент двумерного массива. заполнение массива произвести с клавиатуры

Var

a: array [1 ... 5,1 ... 5] of Integer;

i, j, min:Integer;

begin

Writeln ('Заполните массив') ;

for i:=1 to 5 do

begin

for j:=1 to 5 do

begin

Read (a[i, j]) ;

end;

WriteLn () ;

end;

min: = a[1,1];

for i:=1 to 5 do

for j:=1 to 5 do

if a[i, j] < min then min:=a[i, j];

WriteLn ('Минимальный элемент равен ', min) ;

end.