Заменить все нулевые элементы матрицы на минимальный элемент

program xxx;
 
const n=5; //строки
const m=3; //столбы
 
type matrix= array [1..n,1..m] of integer;
 
var
    a:matrix;
    i,j,min:integer;
    
begin
    {вводим матрицу}
    randomize;
    for i:=1 to n do 
        for j:=1 to m do 
            begin
                a[i,j]:=random(-10)+5;
            end;
    {вывод исходной матрицы}
    for i:=1 to n do 
        begin
            for j:=1 to m do 
                write(a[i,j],' ');
                writeln();
        end;
    {находим минимальный элемент}
    min:=a[1,1];
    for i:=1 to n do
        for j:=1 to m do
            begin
                if min > a[i,j] then
                    min:=a[i,j];
            end;
                
    {замена}
    for i:=1 to n do
        for j:=1 to m do
            begin 
                if a[i,j] = 0 then 
                    a[i,j]:=min;
            end;
    writeln('------------'); // разделитель
    writeln('min : ',min);
    writeln('------------'); // разделитель
    {вывод полученной матрицы}
    for i:=1 to n do 
        begin
            for j:=1 to m do 
                write(a[i,j],' ');
                writeln();
        end;
    readln;
end.