двумерный массив

[Вадим Мошев]

For loop control variable must be simple local variable

Ага...
"Параметр цикла for должен являться локальной переменной".

у вас i и j объявлены глобально. Уберите глобальное объявление этих переменных и объявите их индивидуально для каждой процедуры и функции. Советую это делать так:

var
    i, j: byte;

[Serge_Bliznykov]

Вадим Мошев, согласен.


Fufichek
а что там далеко ходить?!

var
Form1: TForm1;
c: array[1..100, 1..100] of real;
...
for i:=0 to m-1 do
for j:=0 to m-1 do
  if c[i,j]<0 then c[i,j]:=s;

ещё вопросы есть?!



ну и постоянно использование глобальных переменных - чрезвычайно плохой стиль программирования. Рекомендую отказываться (переучиваться)!