Помогите исправить, вроде код правильный но выводит список, а нужна матрица

[Spanchik]

program z6;
uses crt;
var a:array[1..1000,1..1000] of integer;
n,i,j,max,min:integer;
procedure minmax;
begin
if a[i,j]>max then max:=a[i,j]
else if a[i,j]<min then min:=a[i,j]
end;
Begin
clrscr;
writeln('Vvedite n (n - nechetnoe)');
repeat
readln(n);
if n mod 2=0
then
writeln('Vvedite eshe raz');
until n mod 2=1;
writeln('n=',n);
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
writeln
end;
min:=a[1,1];
max:=a[1,1];
for i:=1 to(n div 2)+1 do
for j:=1 to i do
minmax;
for i:=(n div 2)+1 to n do
for j:=i to n do
minmax;
writeln(min,',',max);
readln
end.

[Mad_Cat]

for i:=1 to n do begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4); end;
writeln
end;

[Serge_Bliznykov]

Вы так хотели??

program z6;
uses crt;
const MaxSize = 1000;
var
  a: array[1..MaxSize, 1..MaxSize] of integer;
  n, i, j, max, min: integer;

procedure minmax;
begin
  if a[i, j] > max then max := a[i, j]
  else if a[i, j] < min then min := a[i, j]
end;

begin
  clrscr;
  Randomize;
  repeat
    write('Vvedite n (n - nechetnoe, ot 1 do ', MaxSize, ') :');
    readln(n);
    if not odd(n) then WriteLn('Oshibka! Vvedite eshe raz nechethoe');
    if (n < 1) or (n > MaxSize) then WriteLn('Oshibka! Vvedite nechetnoe ot 1 do ', MaxSize);
  until odd(n) and (n >= 1) and (n <= MaxSize);
  writeln('n=', n);
  for i := 1 to n do begin
    for j := 1 to n do
    begin
      a[i, j] := random(100);
      write(a[i, j]: 2, ' ');
    end;
    writeln
  end;
  min := a[1, 1];
  max := a[1, 1];
  for i := 1 to (n div 2) + 1 do
    for j := 1 to i do
      minmax;

  writeln(' minumum = ', min, ' maxumum = ', max);
  readln
end.

немножко вызывает вопрос этот код:

  for i := 1 to (n div 2) + 1 do
    for j := 1 to i do
      minmax;

Как точно звучит ваше задание?


Ну и ещё, вызывать процедуру, в которой задействованы глобальные переменные, счётчики цикла и она изменяет глобальные переменные - это, на мой взгляд, не комильфо... Хотя, конечно, технически допустимо...

[Spanchik]

Да, так)) спасибо огромное за помощь))