Вывести номера тех столбцов, сумма элементов которых меньше нуля, и число таких столбцов

[Half]

В общем нужна программа, на делфи 9, которая решала бы след задачу.
Дана матрица А(m, n). Вывести номера тех столбцов, сумма элементов которых меньше нуля, и число таких столбцов

Помогите плиз буду крайне благодарен.А то я в делфи 0 полный а лабу скоро сдавать.

[BDA]

count:=0;
for i:=1 to n do
begin
	s:=0;
	for j:=1 to m do
		s:=s+a[j,i];
	if s<0 then
	begin
		writeln('Sum in ',i,' column <0');
		inc(count);
	end;
end;
writeln('Count of columns: ',count);

Считывание матрицы допишите сами

[Half]

Огромное спасибо, но можно спразу файлик готовй проги? а то я настолько криворук что и там напортачу, по глупости на первом курсе дурака провалял а сейчас стараюсь навёрстывать, а тяжело изучать делфи по книжке с обучением паскалю:'(

[BDA]

Вы так ничему не научитесь.

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  count, m, n, i, j, s: integer;
  a: array of array of integer;

begin
  randomize;
  writeln('Input m and n:');
  readln(m, n);
  setlength(a, m, n);
  for i := 0 to m - 1 do
  begin
    for j := 0 to n - 1 do
    begin
      a[i, j] := random(21) - 10;
      write(a[i, j]: 3);
    end;
    writeln;
  end;
  count := 0;
  for i := 0 to n - 1 do
  begin
    s := 0;
    for j := 0 to m - 1 do
      s := s + a[j, i];
    if s < 0 then
    begin
      writeln('Sum in ', i+1, ' column negative');
      inc(count);
    end;
  end;
  writeln('Count of columns with negative sum: ', count);
  setlength(a, 0, 0);
  readln;
end.

[Half]

Странно, пишет индекс находится вне границ массива. да знаю руки у меня из...

P.c буду благодарен если кто посоветует хороший самоучитель для чайников.

[BDA]

Вы что-нибудь исправляли в программе?
(http://www.computerbooks.ru/books/Pr...i-7/index.html полистайте)

[Half]

Нет абсолютно ничего не менял.
за самоучитель спасибо как раз сам на него наткнулся и тут вы посоветовали)

[BDA]

Странно, что не работает. Правда я компилировал в Delphi 2006.
Самоучитель нашел в гугле)