вывод номеров столбцов матрицы и подсчитать количество этих столбцов

[Vitalina69]

Здравствуйте!
Подскажите, пожалуйста, где ошибка....
Условие такое: Дана матрица A(m,n). Вывести номера тех столбцов, сумма элементов которых меньше нуля и число таких столбцов.
номера программа выводит, а число нет, не знаю, в чем дело

unit Unit1;

  private
  a:Array [0..5,0..5]of integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j: integer;
s,k:integer;
begin
for i:=0 to 4 do
for j:=0 to 4 do
begin
a[i,j]:=-10+random(15);
StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
end;
k:=0;
for j:=0 to 4 do
begin
s:=0;
for i:=0 to 4 do
 s:=s+a[i,j];
 if s<0 then
 begin
 memo1.Lines.Add(IntToStr(j)) ;
 end;
begin
for k:=1 to 5 do
if s<0 then
begin
 memo2.Lines.Add(IntToStr(k))  ;

end;
k:=k+1;
end;
end;
end;

end.

[New man]

Сообщение от Vitalina69

Здравствуйте!
Подскажите, пожалуйста, где ошибка....
Условие такое: Дана матрица A(m,n). Вывести номера тех столбцов, сумма элементов которых меньше нуля и число таких столбцов.
номера программа выводит, а число нет, не знаю, в чем дело

unit Unit1;

  private
  a:Array [0..5,0..5]of integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j: integer;
s,k:integer;
begin
for i:=0 to 4 do
for j:=0 to 4 do
begin
a[i,j]:=-10+random(15);
StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
end;
k:=0;
for j:=0 to 4 do
begin
s:=0;
for i:=0 to 4 do
 s:=s+a[i,j];
 if s<0 then
 begin
 memo1.Lines.Add(IntToStr(j)) ;
 end;
begin
for k:=1 to 5 do
if s<0 then
begin
 memo2.Lines.Add(IntToStr(k))  ;

end;
k:=k+1;
end;
end;
end;

end.

Вот тут ошибка

for k:=1 to 5 do
if s<0 then
begin
memo2.Lines.Add(IntToStr(k)) ;

end;
k:=k+1;

Надо

for k:=1 to 5 do
if s<0 then
begin
 memo2.Lines.Add(IntToStr(k))  ;
sum:=sum+1;
end;
memo2.Lines.Add('')  ;
memo2.Lines.Add(IntToStr(sum))  ;

[Vitalina69]

Ой, не... не катит, все равно в memo2 выводится ерунда какая-то, но точно не число столбцов.....