Помогите плиз решить задачу на масивы Опции

[Cold]

Задание:
Определить количество отрицательных элементов, лежащих выше главной диагонали матрицы
A(MxM).
Помогите ,а то завтра здавать ,а я не знаю как её делать.

[Cold]

Вопросы есть.Я вот написал програму , но она не выдаёт нужный результат.

Program TwoSums;
Uses Crt;
  Var A : Array [1..10, 1..10] of Real;
      k,s :real;
      m, i, j : Integer;
    Begin
     ClrScr;
      Write('Количество строк и столбцов(m) - ');
      ReadLn(m);
      For i := 1 to m do
        For j := 1 to m do
          begin
          Write('A[' , i , ', ' , j , '] =  ');
                ReadLn(A[i, j]);
          end;
           WriteLn;
      ClrScr;
       WriteLn(' Матрица А');
      For i := 1 to m do
        begin
          For j := 1 to m do
           Write(A[i, j] : 5 : 1);
          WriteLn
        end;
    Begin
      k:=1;
      For i := 1 to m do
        For j := i to m do
          if a[i,j]>0 then  a[i,j]:=K;
          s:=0+k;
            Writeln('вывести s');
    ReadLn(s);
    end;
    end.

Помогите пожалуста, исправить ошибки в програму.

Сообщение отредактировано: мисс_граффити - 26.12.2006 21:48