Как совместить ручной ввод и заполнение рандом в одну программу?

const
  n = 3;
  m = 5;
 
var
  a: array[1..n, 1..m] of real;
  i, j, imax: integer;
  x, s, max: real;
 
begin
  Randomize;
  write('Ввести число: ');
  readln(x);
  Writeln('Исходная матрица');
  max := -MaxInt;
  for i := 1 to n do
  begin
    s := 0;
    for j := 1 to m do
    begin
      a[i, j] := -n div 2 + random(m);
      Write(a[i, j]:4);
      s := s + a[i, j];
    end;
    if s > max then
    begin
      max := s;
      imax := i;
    end;
    Writeln;
  end;
  Writeln('Максимальная сумма: ', max, ' в строке: ', imax);
  a[imax, 2] := a[imax, 2] - x;
  a[imax, m] := a[imax, m] - x;
  Writeln('Измененная матрица');
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write(a[i, j]:4);
    Writeln;
  end;

const
  n = 3;
  m = 5;
 
var
  a: array[1..n, 1..m] of real;
  i, j, imax: integer;
  x, s, max: real;
 
begin
  write('Ввести число: ');
  readln(x);
  Writeln('Введите исходную матрицу:');
  for i := 1 to n do
    for j := 1 to m do
      read(a[i, j]);
  readln;
  Writeln('Исходная матрица');
  max := -MaxInt;
  for i := 1 to n do
  begin
    s := 0;
    for j := 1 to m do
    begin
      Write(a[i, j]:4);
      s := s + a[i, j];
    end;
    if s > max then
    begin
      max := s;
      imax := i;
    end;
    Writeln;
  end;
  Writeln('Максимальная сумма: ', max, ' в строке: ', imax);
  a[imax, 2] := a[imax, 2] - x;
  a[imax, m] := a[imax, m] - x;
  Writeln('Измененная матрица');
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write(a[i, j]:4);
    Writeln;
  end;
  
end.

var
  a: array[1..n, 1..m] of real;
  i, j, imax, k: integer;
  x, s, max: real;
 
begin
write('Введите размер матрицы: ');
readln(x);
repeat
writeln('Выберите способ задания элементов матрицы');
writeln('1-с клавиатуры');
writeln('2-случайные числа');
readln(k);
until k in [1,2];
if k=1 then
 begin
  Writeln('Введите исходную матрицу:');
  for i := 1 to n do
  for j := 1 to m do
  readln(a[i, j]);
 end
else
 for i := 1 to n do
 for j := 1 to m do
 a[i, j] := -n div 2 + random(m);
Writeln('Исходная матрица')