Двумерные масивы!!!

[Vitta]

Помогите, пожалуйста,совсем туго с информатикой!Дан двумерный массив X(N,M). Все нулевые элементы среди четных столбцов массива заменить на среднее значение положительных элементов этих же столбцов.(Выдаёт ошибку и не одну)

PROGRAM PR1;
VAR A:ARRAY[1..10,1..10] of real;
i,j,k,M,N,max,min:INTEGER;
S,SR:real;
BEGIN
WRITE('Введите N,M');
READLN(N,M);
FOR i:=1 to N do
FOR j:=1 to M do
Begin
S[j]:=0;
FOR i:=1 to N do
s[j]:=s[j]+ABS(A[ij]);
('S[',j,'])',='S[j]);
WRITELN
end;
max:=S[1];
k:=1;
FOR j:=1 to M do
IF(S[j]>max)THEN
BEGIN
max:=S[j];k:=j;
end;
min:=A[1,k];
FOR i:=1 to N do
IF(A[i,k]<min)THEN
BEGIN
A[i,k]:=min;
end;
WRITELN('Минимальное значение=',min);
END.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.