Anonymní profil Lukáš – Programujte.com

Je zadaná matice n*n a mám zjistit, sloupec s největším průměrem.
V Pascalu jsem vypotil toto:

program UKOL;

var a:array[1..100,1..100] of integer;
    i,j,n:integer;
    prum:real;
begin
      write('Zadej rozměr matice: ');
      readln(n);
      for i:=1 to n do
         for j:=1 to n do begin
                             write('Zadej prvek [',i,',',j,']: ');
                             readln(a[i,j]);
                          end;
      for j:=1 to n do
        for i:1 to n do begin
                            prum:=(prum+a[j,i])/n;
                            writeln('Průměr ',j,'. sloupce je ',s:6:2);
                            s:=0;
                        end;
readln;
end.

Zadám matici 2x2 s prvky [1,1]: 2
                                      [1,2]: 5
                                      [2,1]: 3
                                      [2,2]: 8
a vypíše to tohle:
Průměr 1. sloupce je: 1.00
Průměr 1. sloupce je: 2.50
Průměr 2. sloupce je: 1.50
Průměr 2. sloupce je: 4.00

Poradíte mi prosím, co tam změnit?