Народ, слезно прошу помочь решить задачу по информатике (програмирование), я просто ноль в этом(((

Program TURBO_PAS;
VAR {ОПЕРАТОР НАЧАЛА ОПИСАНИЯ ПЕРЕМЕННЫХ И МАССИВА}
I, J, sum, sum1,n,m: Integer; {описания переменных }
A: array[1..10,1..10] of integer;{описания массивов }
BEGIN {Начало программы}
{Ввод исходных данных}
{Решение задачи}
sum:= 0; sum1 = 0; {обнуление переменных для подсчета сумм}
Write(‘Введите значение N и M’); ReadLn(N, M);
{Ввод исходных массивов}
FOR j:= 1 TO M DO {оператор цикла для столбцов матрици}
FOR i:= 1 TO N DO {оператор цикла для строк матрици}
begin{Открывающая операторная скобка}
Write(‘Введите элемент A[‘, I ,’, ‘, j ,’]= ’);
ReadLn(A[ I, J ]); {непосредственный ввод}
if a[ i, j ]>0 then sum:=sum+a[ i, j ] else sum1:=sum1+a[ i, j ]; {подсчет суммы положительных элементов и отрицательных элементов}
End; {Закрывающая операторная скобка}
{ Вывод исходных данных и вывод результатов }
WriteLn;{пустой оператор вывода, для пропуска строки}
WriteLn(‘Число строк в матрице N=’, N );
WriteLn(‘Число солбцов в матрице M=’, M );
WriteLn;{пустой оператор вывода, для пропуска строки}
WriteLn(‘Вывод матрици А по формату) ;
FOR j:= 1 TO M DO {оператор цикла для столбцов матрици}
begin {Открывающая операторная скобка}
FOR i:= 1 TO N DO {оператор цикла для строк матрици}
begin{Открывающая операторная скобка}
Write(‘элемент A[‘, I ,’, ‘, j ,’]= ’,A[ I,J ]);
End; {Закрывающая операторная скобка}
writeln; {для перехода на новую строчку}
end; {Закрывающая операторная скобка}
WriteLn;{пустой оператор вывода, для пропуска строки}
WriteLn(‘Вывод результата решения’);
WriteLn(’Сумма положительных элементов = ‘,sum, ‘Сумма отрицательных элементов = ‘,sum1);
readln;{просмотр результатов до нажатия любой клавиши}
END. {Конец программы END с точкой}

как будешь благодарить?