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

[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.

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

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

[мисс_граффити]

во-первых, необходимо использовать теги [cоde=pаs][/cоde], когда публикуешь текст программы.

Сообщение отредактировано: мисс_граффити - 27.12.2006 1:47

[Cold]

Да заполняется.

[мисс_граффити]

и что ты этим хочешь сделать:

a[i,j]:=K;

?
и почему

 k:=1;

?
по-моему, логичнее предположить, что изначально k=0...