Считать текст из файла

var
  cifry1: array of integer;
  openfile: text;
  textfromfile, cifry: string;
 
procedure read_str();
begin
var S1:string;
 cifry:='';
 Repeat
  Readln(openfile,S1);
  for var i:=1 to Length(S1) do cifry:=cifry+S1[i];
  if Not(EoF(openfile)) then cifry:=cifry+' ';
 Until EoF(openfile);
 Close(openfile);
 Writeln(cifry);
 ReadLn
end;
 
procedure find();
begin
  for var i := 1 to textfromfile.Length do
  begin
    if (ord(textfromfile[i]) >= 48) and (ord(textfromfile[i]) <= 57) then
    begin
      if (ord(textfromfile[i + 1]) >= 48) and (ord(textfromfile[i + 1]) <= 57) then
        cifry := cifry + textfromfile[i]
      else cifry := cifry + textfromfile[i] + ',';
    end;
  end;
  writeln(cifry);
end;
 
procedure preobrazovanie();
begin
  var code, f, j, i, cislo, o: integer;
  o := 1;
  for i := 1 to cifry.Length do if cifry[i] = ',' then f += 1;
  setlength(cifry1, f);
  for i := 1 to f do
  begin
    while o <= cifry.length do
    begin
      if cifry[o] = ',' then
      begin
        Val(copy(cifry, 1, j), cislo, code);
        cifry1[i - 1] := cislo;
        delete(cifry, 1, j + 1);
        j := 0;
        o := 1;
        break;
      end;
      o += 1;
      j += 1;
    end;
  end;
  Writeln(cifry1);
end;
 
begin
  assign(openfile, 'E:\!Projects\Pascal\1234.txt');
  Reset(openfile); 
  read_str();
  find();
  preobrazovanie();
end.

begin
  var d := ReadAllText('1.txt', Encoding.UTF8).Where(c->Char.IsDigit(c)).Println.Sorted.Distinct.ToArray;
  d[d.Count-1].Println;
  d[d.Count-2].Println;
end.

begin
  var d := ReadAllText('1.txt', Encoding.UTF8).Select(c->Char.IsDigit(c)?c:#32).JoinIntoString('').ToWords.Select(word->StrToInt(word)).Sorted.PrintLn;
end.