помогите решить матрицу в паскале

[Deis]

Дана действительная квадратичная матрица порядка N(N-нечетное), все элементы которой различны. Найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять его местами с эдементом, состоящим на пересечении этих диагоналей

[alex_fcsm]

uses crt;
const n=100;
var i,j,d,temp,maxi,maxj:integer;
    a:array[1..n,1..n] of integer;
    
begin
repeat
clrscr;
writeln('->');
readln(d);
until d mod 2=1;
for i:=1 to d do
begin
 for j:=1 to d do
  begin
   a[i,j]:=random(1000);
   write(a[i,j]:4);
  end;
  writeln;
end;
i:=1;j:=1;maxi:=1;maxj:=1;
while i<=d do
 begin
  if a[i,j]>a[maxi,maxj] then begin
                               maxi:=i;
                               maxj:=j;
                              end;
  inc(i);inc(j);
 end;
i:=d;j:=1;
while i>=1 do
 begin
   if a[i,j]>a[maxi,maxj] then begin
                               maxi:=i;
                               maxj:=j;
                              end;
  dec(i);inc(j);
 end;
 temp:=a[d div 2 +1,d div 2 +1];
 a[d div 2 +1,d div 2 +1]:=a[maxi,maxj];
 a[maxi,maxj]:=temp;
 writeln('=======================================');
 for i:=1 to d do
 begin
 for j:=1 to d do
   write(a[i,j]:4);
  writeln;
 end;
end.

[Deis]

Прога не работает!

[alex_fcsm]

Что не так?

[Stilet]

Все работает, просто вводить нужно нечетные числа. Введи 7 или 1

[Sazary]

Похоже, я знаю, почему "Прога не работает". Видимо, не все знают про существование окна "Output" и о запуске из командной строки. Поэтому отсутствие readln'а они и принимают за неработоспособность программы.
Ну и, конечно, "проблема" может заключаться в вводимом числе, как и сказал Stilet

[alex_fcsm]

Если человек не может даже посмотреть что ему написали то тогда....

P.S. Размер матрицы должен быть нечетным, поэтому программа добивается от Вас нечетного числа

[Stilet]

Поэтому отсутствие readln'а они и принимают за неработоспособность программы.

Тоже верно.

[alex_fcsm]

Сообщение от Sazary

Похоже, я знаю, почему "Прога не работает". Видимо, не все знают про существование окна "Output" и о запуске из командной строки. Поэтому отсутствие readln'а они и принимают за неработоспособность программы.
Ну и, конечно, "проблема" может заключаться в вводимом числе, как и сказал Stilet

Ага, пусть ТЗ пишут

[Deis]

Он на переменную n орёт. После 2го бегина орёт на переменную i