Получить новую матрицу по правилу

var
  n, i, j, m, k: integer;
  A, B: array[1..25, 1..25] of integer;
  
begin
  randomize;
 { Формируем и выводим случайную матрицу: }
  write('n = ');
  readln(n);
  write('m = ');
  readln(m);
  write('k = ');
  readln(k);
  writeln('Вводим случайную квадратную матрицу порядка ', n, ':');
  for i := 1 to n do begin
    for j := 1 to n do begin
      a[i, j] := -100 + random(200);
      write(a[i, j]:6)
    end;
    writeln;
  end;
 { Формируем элементы новой матрицы: }
  for i := 1 to n - 1 do begin
    if i < m then
      for j := 1 to n - 1 do begin
        if j < k then b[i, j] := a[i, j]
        else b[i, j] := a[i, j + 1]
      end
    else
      for j := 1 to n - 1 do begin
        if j < k then b[i, j] := a[i + 1, j]
        else b[i, j] := a[i + 1, j + 1];
      end
  end;
  writeln;
  writeln('Выводим преобразованную матрицу:');
  for i := 1 to n-1 do begin
    for j := 1 to n-1 do
      write(b[i, j]:6);
    writeln;
  end;
end.