Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC.NET пожалуйста

program lab3;
 
uses
  Crt;
 
const
  Output_File_Name = 'output.txt';  { ima faila dlya vivoda perestanovok }
  Nmax = 12; { MAX element mnozestva }
 
type
  T = Char; { Tip elementa mnozestva }
  TArray = Array[1..Nmax] of T;
 
var
  F: Text;
  Flag: Boolean; { Flag = True proishodit zapis v fail }
 
procedure Print(const A: TArray; const N: Integer); { Vivvod perestanovki }
var
  i: Integer;
begin
  for i := 1 to N do begin
    Write(A[i], ' ');
    if Flag then Write(F, A[i], ' ');
  end;
  if WhereY = 25 then ReadKey;
  WriteLn;
  if Flag then WriteLn(F);
end;
 
procedure Sort(var A: TArray; const N: Integer); { Sortirovka vibor po neubivaniuy }
var
  i, j, k: Integer;
  tmp: T;
begin
  for i := 1 to N - 1 do begin
    k := i;
    for j := i + 1 to N do
      if A[j] < A[k] then k := j;
    tmp := A[i];
    A[i] := A[k];
    A[k] := tmp;
  end;
end;
procedure Generate(A: TArray; const N: Integer); { Generator perestanovok }
var
  p, q, i, k, m: Integer;
  min: T;
  tmp: T;
begin
  while True do begin
    Print(A, N);
    { Naiti crainii sprava A[p],dlya takoi A[p] < A[p+1] }
    p := 0;
    for i := n downto 2 do
      if A[i - 1] < A[i] then begin
        p := i - 1;
        Break;
      end;
    if p = 0 then Exit; { Esli ne naideno, perestanovki ispolzovani}
    min := High(min);
    { Naity min A[q] sredi A[p+1], ..., A[n], dlya takoi A[q] > A[p] }
q:= 0;
    for i := p + 1 to N do
      if (min > A[i]) and (A[i] > A[p]) then begin
        min := A[i];
        q := i;
      end;
    { Menyaem A[p] and A[q] }
    tmp := A[p];
    A[p] := A[q];
    A[q] := tmp;
    { Invertyruem A[p+1], ..., A[n] }
    k := n + (p + 1) - 1;
    m := k div 2;
    for i := p + 1 to m do begin
      tmp := A[i];
      A[i] := A[k - i + 1];
      A[k - i + 1] := tmp;
    end;
  end;
end;
var
  A: TArray;
  N: Integer;
begin
  ClrScr;
  WriteLn(‘Vedite mnozestvo elemetov cherez probel #_Element dolzen bit razlichen');
  N := 0;
  while not SeekEoLn do begin
    Inc(N);
    Read(A[N]);
  end;
  Sort(A, N);
  Flag := False;
  if N > 3 then begin
    ClrScr;
    WriteLn('Nevozmozno otobrazit vse perestanovki, click Any key ');
    WriteLn('Dlya vivoda perestanovki budet sdelana zapis v fail.');
    Assign(F, Output_File_Name);
    Rewrite(F);
    Flag := True;
  end;
  WriteLn;
  Generate(A, N);
  if Flag then Close(F);
  WriteLn('Complet.');
  ReadKey;
end.