Найти минимальные значения по всем строкам матрицы и представить их в форме одномерного массива

var
  a : array of array of integer;
  ma : array of integer;
  x,y,n,m,v,k,min: integer;
begin
  writeln('Введите ширину матрицы: ');
  read(n);
  SetLength(a,n);
  
  writeln('Введите высоту матрицы: ');
  read(m);
  for var i := 1 to n do SetLength(a[i-1],m);
  
  SetLength(ma,m);
  
  writeln('1. Ввести вручную');
  writeln('2. Ввести случайно');
  read(v);
  
  if v = 1 then begin
    for y := 1 to m do
      for x := 1 to n do begin
        write('Введите значение ячейки ', x, ';', y, ' :');
        readln(v);
        a[x-1,y-1] := v;
      end;
    writeln('Ввод завершён');
  end else if v = 2 then begin
    write('Максимальное значение: ');
    readln(k);
    randomize;
    for y := 1 to m do
      for x := 1 to n do a[x-1,y-1] := random(0,k-1);
    writeln('Форматирование завершёно');
  end;
  
  for y := 1 to m do begin
    min := a[0,y-1];
    for x := 1 to n do if min > a[x-1,y-1] then min := a[x-1,y-1];
    ma[y-1] := min;
  end;
  
  for x := 1 to m do write(ma[x-1], ' ');
  
end.

  Write('m n: '); ReadLn(m,n);
  SetLength(a,m,n);

  case v of
  1:
    begin
      WriteLn('Введите элементы массива (',m*n,'):');
      for y:=0 to m-1 do for x:=0 to n-1 do Read(a[y,x]); ReadLn;
    end;
  2:
    begin
      Write('k: '); ReadLn(k); Randomize;
      for y:=0 to m-1 do for x:=0 to n-1 do a[y,x]:=Random(k);
    end;
  end;
  for y:=0 to m-1 do begin
    min:=a[y,0];
    for x:=1 to n-1 do if min>a[y,x] then min:=a[y,x];
    ma[y]:=min;
  end;
  WriteLn('A =');
  for y:=0 to m-1 do begin
    for x:=0 to n-1 do Write(' ',a[y,x]:4); WriteLn(' | ',ma[y]:4);
  end;