Процедуры и функции, помогите решить задачу.

uses crt;
type
sername=array[1..200] of string;
baly=array[1..200,1..200] of integer;
var m,n,i,j,k,l,r,s:integer;
    s1,s2,ext,w:real;
   a:sername;
   b:baly;
procedure priswaiwanie_group(var n,m:integer; var a:sername; var b:baly );
begin
    n:=5; m:=3;
    a[1]:='Âîðîíöîâ';   b[1,1]:=4;  b[1,2]:=4; b[1,3]:=4;
    a[2]:='Ãîðîõîâ';    b[2,1]:=4;  b[2,2]:=4; b[2,3]:=4;
    a[3]:='Ãîëîâèí';    b[3,1]:=4;  b[3,2]:=4; b[3,3]:=4;
    a[4]:='Ãóñåâà';     b[4,1]:=4;  b[4,2]:=4; b[4,3]:=4;
    a[5]:='Âàñèëüåâà';  b[5,1]:=4;  b[5,2]:=4; b[5,3]:=4;
 
end;
procedure output_group(n,m:integer; var a:sername; var b:baly);
Var i:integer;
begin
for i:=1 to n do begin write(a[i]);
    for j:=1 to m do write('  ',b[i,j]);
             writeln end;
writeln;
end;
function summa( var m,k:integer;   var b:baly ):real;
    var i:integer;  s:real;
begin
    s:=0;
    for j:=1 to m do
 
 
        s:=s+b[k,j];
    summa:=s
end;
procedure sort_massiv(n:integer; var a:sername; var b:baly);
var i,j,x:integer; y:string;
begin
    for j:=1 to n-1 do
     for i:=1 to n-j do
       if b[i,j]<b[i+1,j] then begin
        x:=b[i,j]; b[i,j]:=b[i+1,j]; b[i+1,j]:=x;
        y:=a[i]; a[i]:=a[i+1]; a[i+1]:=y;
          end; end;
begin
    clrscr;    priswaiwanie_group(n,m,a,b);    writeln;
output_group(n,m,a,b);
sort_massiv(n,a,b);
w:=summa(m,n,b);
writeln(s);
end.