Минимальный элемент в массиве, помогите подправить

 Program Tom14;
uses crt;
    const n=4;
  var
  a: array[1..n, 1..n] of real;
    s,i,t,j,z:byte;
    b,min:real;
    begin
clrscr;
writeln('Èñõîäíàÿ ìàòðèöà:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
    a[i,j]:=random(10);
     write(a[i,j]:5:1);
    end;
    writeln;
  end;
  //nomer stolba s min 4islom
  S:=1;
      min:=a[1,1];
  for i:=1 to n do
  for j:=1 to n do
  if a[i,j]<min then
  begin min:=a[i,j];
  S:=j;
  writeln('minimalnuy element = ',min,' v stolbike = ',s);
 
  end;
  //uporyado4enie
 
   for j:=1 to n do
   for z:=1 to n do
  for i:=z+1 to n do
  if (a[i,j]<a[z,j])
  then begin
      b:=a[i,j];
      a[i,j]:=a[z,j];
      a[z,j]:=b;
      end;
 
  writeln('ïîëó÷åííàÿ ìàòðèöà:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     write(a[i,j]:5:1);
    end;
    writeln;
  
  end;
end.

 Program Tom14;
uses crt;
    const n=4;
  var
  a: array[1..n, 1..n] of real;
    i,t,j,z:byte;
    b,min:real;
    begin
clrscr;
writeln('Èñõîäíàÿ ìàòðèöà:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
    a[i,j]:=random(10);
     write(a[i,j]:5:1);
    end;
    writeln;
  end;
  //nomer stolba s min 4islom
      min:=a[1,1];
  for j:=1 to n do
    begin
      min:=a[i,j];
      for i:=1 to n do
      if a[i,j]<min then min:=a[i,j];
      writeln('minimalnuy element = ',min,' v stolbike = ',j);
    end;
  //uporyado4enie
 
   for j:=1 to n do
   for z:=1 to n do
  for i:=z+1 to n do
  if (a[i,j]<a[z,j])
  then begin
      b:=a[i,j];
      a[i,j]:=a[z,j];
      a[z,j]:=b;
      end;
 
  writeln('ïîëó÷åííàÿ ìàòðèöà:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     write(a[i,j]:5:1);
    end;
    writeln;
 
  end;
end.