Заполнение одномерного массива x по условию

program prim5;
   var a:array[1..1000,1..1000] of real;
   x:array [1..1000] of real;
   i,j,k,n:integer;
   y,s,c,min,max:real; 
begin
   writeln('Введите n'); read(n);
   for j:=1 to n do
      for i:=1 to n do
         a[j,i]:=(i+2)*i/j;
   writeln(' ':20,'МАТРИЦА А');
   for i:=1 to n do
      begin
         for j:=1 to n do write(a[i,j]:6:2);
         writeln;
      end;
// Создание одномерного массива X
for i:=1 to n do
      begin
   max:=-maxint;
   min:=maxint;
       for j:=1 to n do
         begin
        if a[i,j]>max then max:=a[i,j];
        if a[j,i]<min then min:=a[j,i];
         end;
          x[i]:=max-min;
      end;
   writeln(' ':20,'ВЕКТОР Х:');
   for i:=1 to n do write(x[i]:6:2,' ');
end.

program prim5;
var
  a: array[1..1000, 1..1000] of real;
  x: array[1..1000] of real;
  i, j, n: integer;  {***}
  min, max: real; {***}
begin
  write('Введите n: '); readln(n); {***}
  for j := 1 to n do
    for i := 1 to n do
      a[j, i] := (i + 2) * i / j;
   writeln(' ':20,'МАТРИЦА А:');
   for i := 1 to n do
      begin
         for j := 1 to n do write(a[i, j]:6:2);
         writeln
      end;
// Создание одномерного массива X
for i := 1 to n do
  begin
    max := a[i, 1]; {***}
    min := a[i, 1]; {***}
    for j := 2 to n do {***}
    {***}
      if a[i, j] > max then max := a[i, j]  {***}
      else if a[i, j] < min then min := a[i, j];  {***}
    {***}
    x[i] := max - min;
  end;
  writeln(' ':20, 'ВЕКТОР Х:');
  for i := 1 to n do write(x[i]:6:2, ' ')
end.

    max := a[i, 1]; {***}
    min := a[1, i]; {***}
    for j := 2 to n do {***}
      begin
        if a[i, j] > max then max := a[i, j];
        if a[j, i] < min then min := a[j, i]
      end;