Matematické Fórum

potřeboval bych pomoct s úkolem jelikož nechápu procedury a fce (předevšim deklarace)
Mam zadání: Vytvořit funkci na součet hodnot ve sloupci matice MxN a tuto fci potom použit pro čtvercovou matici typu K, a
potom vypočitat aritmetiky pruměr z těchto hodnot.
dík za pomoc

program Program_10(vstup,vystup);
const mmax=5;nmax=5;
type  mat=array[1..mmax,1..nmax] of real;
var   i,j:integer;
      vstup,vystup:text;
      a:mat;
      AP,sum,k:real;

function sloupec (sum:real):real;
begin
for j:=1 to nmax do
  begin
  sum:=0;
    for i:=1 to mmax do
       sum:=sum+a[i,j];
sloupec:=sum;
end;

begin
     assign(vstup,'vstup.txt');
     assign(vystup,'vystup.txt');
     reset(vstup);
     rewrite(vystup);

     read(vstup,k);
     for i:=1 to k do begin
         for j:=1 to k do read(vstup,a[i,j]);
     writeln(vystup,'Zadana matice');
     writeln(vystup);
     for i:=1 to k do
            begin
            for j:=1 to k do write(vystup,a[i,j]:3:0);
            writeln(vystup);
            end;

      writeln(vystup,'Soucet sloucu');

    for j:=1 to nmax do begin
       AP:=sloupec/k;
       writeln(vystup,'Soucet prvku v ',k,'. sloupci: ',AP:4:0);
       end;

     close(vstup);
     close(vystup);
     end.