Редактировать код

[MaidDragon]

Прошу помощи, пожалуйста кто-нибудь может переписать код под PascalABC.NET

program project1;
 
const
  n = 10;
 
type
  Tmas = ^TTmas;{одна строка матрицы}
  TTmas = array[1..1] of integer;
  Tmatr = ^TTmatr;{матрица-массив указателей на строки}
  TTmatr = array[1..1] of Tmas;
var
  a: Tmatr;
  max, min, i, j: integer;
  x: integer;{буфер для обмена при транспонировании}
begin
  randomize;
  getmem(a, sizeof(TTmas) * n * 2);{выделяем память под указатели на строки}
  {поскольку сортируем в двух циклах, нужно в 2 раза больше памяти}
  for i := 1 to n do
    getmem(a^[i], sizeof(integer) * n);{для каждой строки память для хранения данных}
  writeln('Исходная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a^[i]^[j] := random(n);
      Write(a^[i]^[j]: 4);
      if max > a^[i]^[j] then
        max := a^[i]^[j];
      if min < a^[i]^[j] then
        min := a^[i]^[j];
    end;
    writeln;
  end;
  max := a^[1]^[1];
  min := a^[1]^[1];
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if max < a^[i]^[j] then
        max := a^[i]^[j];
      if min > a^[i]^[j] then
        min := a^[i]^[j];
    end;
  end;
  writeln('Max: ', max);
  writeln('Min: ', min);
  for i := 1 to n do
    freemem(a^[i], sizeof(integer) * n);
  {освобождаем память в обратном порядке, сначала удалим строки}
  freemem(a, sizeof(TTmas) * n * 2); {потом указатели на них}
  Write('Press Enter...');
  readln;
end.