Построить матрицу, которая образуется из исходной добавлением к ней строки максимальных значений по столбцам Pascal(Паскаль)

    program mart;
    const
      n=5;m=4;k=10;
    var
      a:array[1..n,1..m] of integer;
      b:array[1..n+1,1..m] of integer;
      i,j,z:integer;
    begin
      randomize;
      repeat
        writeln('Матрица[',n,'x',m,']:');
        writeln('1. Ручной ввод матрицы');
        writeln('2. Автоматический ввод');
        write('Ваш выбор:');
        readln(i);
      until i in [1,2];
      if i=1 then begin
        writeln('Вводите строки матрицы:');
        for i:=1 to n do begin
          writeln('Строка ',i,':');
          for j:=1 to m do read(a[i,j]);
        end;
      end
      else
        for i:=1 to n do begin
          for j:=1 to m do begin
           a[i,j]:=random(k);
           write(a[i,j]:4);
          end;
          writeln;
        end;
      for j:=1 to m do begin
        b[n+1,j]:=a[1,j];
        for i:=1 to n do begin
          if a[i,j]>b[n+1,j] then b[n+1,j]:=a[i,j];
          b[i,j]:=a[i,j];
        end;
      end;
      writeln('Полученная матрица:');
        for i:=1 to n+1 do begin
          for j:=1 to m do write(b[i,j]:4);
          writeln;
        end;
    end.