Частично я сделал задание, но дальше не знаю как, помогите
uses crt;
const n=12;
var a:array[1..n,1..n] of byte;
i,j:byte;
s:integer;
f:text;
begin
clrscr;
randomize;
assign(f,'output.txt');
rewrite(f);
writeln('Матрица');
writeln(f,'Matrica');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(101);
write(a[i,j]:3);
write(f,a[i,j]:3);
end;
writeln;
writeln(f);
end;
writeln('Суммы по столбцам');
writeln(f,'Summy po stolbcam');
for j:=1 to n do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
writeln(j:2,'=',s);
writeln(f,j:2,'=',s);
end;
close(f);
write('Результат записан в файл output.txt');
readkey
end.