Найти наименьшие элементы матрицы и записать на их место нули - Pascal

const n=10;
var x:array[1..n,1..n] of integer;
    i,j,imn,jmn,mn:integer;
begin
randomize;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    x[i,j]:=10+random(90);
    write(x[i,j]:3);
    if i*j=1 then
     begin
      imn:=1;
      jmn:=1;
     end
    else if x[i,j]<x[imn,jmn] then
     begin
      imn:=i;
      jmn:=j;
     end;
   end;
  writeln;
 end;
writeln('Минимальный элемент=',x[imn,jmn],' в строке ',imn,' в столбце ',jmn);
writeln('Замена элементов строки ',imn,' и столбца ',jmn,' на 0');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if (i=imn)or(j=jmn) then x[i,j]:=0;
    write(x[i,j]:3);
   end;
  writeln;
 end;
end.