Сформировать массив из минимальных элементов матрицы. Пожалуйста, выручите!

program Lab7_V7;
uses crt;
const n1=20; m1=20;
var
  x:array[1..n1, 1..m1] of real;
  min:real;
  i,j,n,m:byte;
  otv:0..1;
  label 1;
    begin
      1:clrscr;
      textcolor(15);
      write('Введите количество строк и столбцов матрицы массива (не больше 20-ти): ');
      readln(n,m);
      if (n > 20) or (m > 20) then begin
                                   writeln;
                                   writeln('Ошибка! Максимально допустимое кол-во элементов массива = 20.');
                                   writeln;
                                   writeln('Нажмите любую клавишу...');
                                   readkey;
                                   exit;
                                   end;
      for i:=1 to n do
      for j:=1 to m do
      begin
      write('Введите ', i, '-й элемент строки и ', j, '-го столбца через пробел: ');
      readln(x[i,j]);
      end;
      clrscr;
      textcolor(14);
      writeln('                               *** Массив X ***');
      writeln;
      writeln('________________________________________________________________________________');
      writeln;
      textcolor(10);
      for i:=1 to n do begin
                       write('( ');
                       for j:=1 to m do write(x[i,j]:5:2, '; ');
                       writeln(' )');
                       end;
      writeln;
      textcolor(15);
      writeln('Для продолжения работы нажмите любую клавишу...');
      readkey;
      writeln;
      delay(1500);
      for j:=1 to m do begin
                       min:=x[i,j];
                       for i:=2 to n do if min > x[i,j] then min:=x[i,j];
                       textcolor(14);
                       write('Минимальный элемент ', j, '-го столбца массива равен ');
                       writeln(min:5:2);
                       writeln;
                       end;
    delay(1500);
    textcolor(15);
    end.

program Lab7_V7;
uses crt;
const n1=20;
var x:array[1..n1, 1..n1] of integer;
    y:array[1..n1] of integer;
    i,j,n,m:byte;
begin
randomize;
repeat
write('Ââåäèòå êîëè÷åñòâî ñòðîê è ñòîëáöîâ ìàòðèöû ìàññèâà (íå áîëüøå 20-òè): ');
read(n,m);
until(n in [1..n1])and(m in [1..n1]);
writeln('Ìàòðèöà');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    x[i,j]:=random(100);
    write(x[i,j]:3)
   end;
  writeln
 end;
for j:=1 to m do
 begin
  y[j]:=x[1,j];
  for i:=2 to n do
  if x[i,j]<y[j] then y[j]:=x[i,j]
 end;
writeln('Ìàññèâ ìèíèìàëüíûõ çíà÷åíèé ñòîëáöîâ');
for i:=1 to m do
write(y[i]:3)
end.