по паскалю подскажите

Дана действительная квадратная матрица порядка n. Найти наибольшее значение элементов расположенных в заштрихованной области. (здесь область обозначена минусами).
+++++++
+++++++
+++++++
+++-+++
++-----++
+----------+
var i,j,n,k:integer;
A:array[1..10,1..10] of integer;
max:real;
begin
writeln ('введите n'); read(n);
writeln (Введите массив а поэлементарно');
for i:=1 to n do
begin
writeln ('введите i строку');
for j:=1 to n do
read(A[i,j]); writeln;
end;
if (n mod 2=0) then k:=trunc (n/2) else k:=(n div 2)+1;
max:=A[n,1];
for i:=j to k do for j:=1 to n-i+1 do
if A[i,j]>max then max:=A[i,j];
writeln('max=',max:1:0);
end.

В чем ошибка

Сообщение было изменено пользователем 12-01-2010 в 21:33Сообщение было изменено пользователем 12-01-2010 в 21:39