Дан двумерный массив размерностью n*m, в котором не все элементы равны нулю. Получить новый массив путем деления всех элементов массива на его наименьший элемент. Если наименьший элемент равен нулю, то вывести соответствующее сообщение, а элементы массива оставить без изменения — Pascal(Паскаль)

program program_6_1;
uses crt;
var
A: array [1..100, 1..100] of real;
N,M,i,j: integer;
min:real;
begin
clrscr;
write ('vvedite N: ');
readln (N);
write ('vvedite M: ');
readln (M);
for i:=1 to N do
for j:=1 to M do
begin
write ('vvedite A[',i,',',j,']: ');
readln (A[i,j]);
min:=A[1,1];
if A[i,j]<min
then min:=A[i,j];
end;
if min=0
then
begin writeln ('min=0');
for i:=1 to N do
 begin
  for j := 1 to M do
    write(a[i,j]:4:1);
    writeln;
end;end
else for i:=1 to N do
 begin
  for j := 1 to M do
    write(a[i,j]/min:4:1);
    writeln;
end;
end.