не понимаю где ошибка

[Hulio]

program laba3;
var max,s,i,j,n:integer;
x:array[1..99,1..99] of integer;
begin
repeat writeln('vvedite N');
readln(n);
until (n>10 and (n mod 2=1);
s:=1;
for i:=1 to n do
for j:=1 to j do
begin
writeln('vvedite x[',i,j,']');
readln(x[i,j]);
if (i=1) and (j=n) then max:=x[i,j];
if (i+j >= n+1) or ((i+j >= n+1)and(i <= n div 2 +1)) then
begin
s:= s * x[i,j];
if max < x[i,j] then max := x[i,j];
end;
writeln ( 'proizvedenie ravno : ',s, 'max element : ',max);
readln;
end.

[McFrey]

не знаю что у вас за задание...но проверку на ввод можно сделать таким образом

program laba3;

var
  max, s, i, j, n, code: integer;
  x: array[1..99, 1..99] of integer;
  st: string;

begin
  writeln('vvedite N');
  repeat
    readln(st);
    val(st, n, code);
    if (code <> 0) or (n > 10) then
      writeln('oshibka povtorite vvod');
  until (code = 0) and (n < 10);
  s := 1;
  for i := 1 to n do
    for j := 1 to j do
    begin
      writeln('vvedite x[', i, j, ']');
      readln(x[i, j]);
      if (i = 1) and (j = n) then max := x[i, j];
      if (i + j >= n + 1) or ((i + j >= n + 1) and (i <= n div 2 + 1)) then
      begin
        s := s * x[i, j];
        if max < x[i, j] then max := x[i, j];
      end;
      writeln( 'proizvedenie ravno : ', s, 'max element : ', max);
      readln;
    end;
end.

______________
помог?! - ткни в весы))!

[Hulio]

задача на матрицу
1вариант http://cs305902.vkontakte.ru/u235787...x_ca998b67.jpg