Я подумал! так будет правильней
Program Matrix;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array [1..100,1..100] of integer;
i,j,n,m: integer;
S,z: real;
begin
writeln('input n (stroki)');
readln(n);
writeln('input m (stolbci)');
readln(m);
writeln ('input massiv a');
for i:=1 to n do
begin
for j:=1 to m do
begin
read(a[i,j]);
end;
readln;
end;
for j:=1 to n do
begin
S:=0;
for i:=1 to m do
begin
S:=a[i,j]+S;
end;
z:=s/m;
Write('cp ap', j, ' ct =',z:2:2);
Writeln;
end;
Readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.