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

const n=11;
var a:array[1..n,1..n] of byte;
    i,j,mn,imn,jmn:byte;
    s:integer;
    f:text;
begin
randomize;
assign(f,'output.txt');
rewrite(f);
writeln('Исходная матрица');
writeln(f,'Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=1+random(100);
    write(f,a[i,j]:4);
    write(a[i,j]:4);
    if i+j=2 then
     begin
      mn:=a[1,1];
      imn:=1;
      jmn:=1;
     end
    else if a[i,j]<mn then
     begin
      mn:=a[i,j];
      imn:=i;
      jmn:=j;
     end
   end;
  writeln(f,'');
  writeln('');
 end;
writeln(f,'Минимальный элемент a[',imn,',',jmn,']=',mn);
writeln('Минимальный элемент a[',imn,',',jmn,']=',mn);
writeln(f,'Измененная матрица');
writeln('Измененная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(i=imn)or(j=jmn) then a[i,j]:=0;
    write(f,a[i,j]:4);
    write(a[i,j]:4);
   end;
  writeln(f,'');
  writeln('');
 end;
writeln(f,'Суммы элементов в столбцах');
writeln('Суммы элементов в столбцах');
for j:=1 to n do
 begin
  s:=0;
  for i:=1 to n do
  s:=s+a[i,j];
  writeln(f,j:2,'=',s:4);
  writeln(j:2,'=',s:4);
 end;
close(f);
end.