Помогите с матрицей
 

Сумма столбцов. Задана двумерная матрица размерностью 12x12 элементов, заполненная случайными числами из диапазона [0, 100]. Найти, максимальный элемент и сумму элементов по столбцам таблицы, вычесть из каждой суммы максимальный элемент, вывести отрицательные элементы, результаты вывести на экран и записать в файл "output.txt"

Частично я сделал задание, но дальше не знаю как, помогите

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.

Помогаю.
Но прежде — одно замечание. Из задания я напрочь не понял пассаж про "отрицательные элементы": откуда их взять и куда вывести. Дело в том, что если предполагается вычитание максимального элемента КАЖДОГО ИЗ СТОЛБЦОВ из соответствующей суммы, то тут никаких отрицательных элементов не может появиться в принципе. Если же речь идёт о нахождении максимального элемента ВСЕЙ МАТРИЦЫ с последующим его вычитанием из сумм по столбцам, то тут появление отрицательных элементов хоть и возможно, но крайне маловероятно (например, если ВСЕ элементы столбца не превышают 8, а максимальный элемент — где-то в районе 100). Остановился на последнем варианте, хоть как-то осмысленном.