Наити минимальный элемент матрицы

var a:array [1..6,1..5] of integer;
    n, m, i, j, min:integer;
begin
    for i:=1 to 6 do 
        for j:=1 to 5 do
        begin
            read(a[i][j]);
            if ((i=1) and (j=1)) or (a[i][j]<min) then
                min:=a[i][j];
        end;
    for i:=1 to 6 do 
    begin
        for j:=1 to 5 do
            write (a[i][j]*min:3);
        writeln;
    end;
    readln();
end.

Var a:array[1..6,1..5] of integer; i,j:byte; min:integer;
begin
randomize;
min:=a[1,1];
Writeln('Ishodnaya matrica');
Writeln;
for i:=1 to 6 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(30)-10;
if a[i,j]<min
then min:=a[i,j];
Write(a[i,j],' ');
end;
Writeln;
end;
Writeln('Minimal element = ',min);
Writeln('Novii massiv');
for i:=1 to 6 do
begin
for j:=1 to 5 do
begin
a[i,j]:=a[i,j]*min;
Write(a[i,j],' ');
end;
Writeln
end;
readln;
end.

arr[i][j]