Сформировать отдельные очереди для цифр, букв и спецсимволов

##
var a:array[0..2]of string;
 
foreach var x in ReadAllText('input.txt')do if x.IsDigit then a[0]+=x else
  if x.IsLetter then a[1]+=x else a[2]+=x;
Println(a)

var a := new string[3];

var a := new StringBuilder[3];

begin
// 1. читаем содержимое в одну строку
var содержимое:=ReadAllText('input.txt' {,можно указать кодировку});
 
// 2. объявляем переменные
var цифры:=new List<char>;
var буквы:=new List<char>;
var другое:=new List<char>;
 
// 3. заполняем согласно условия
foreach var символ in содержимое do case символ of
'0'..'9':цифры.Add(символ);
'a'..'z','A'..'Z':буквы.Add(символ)
{в задании про кириллицу не сказано} else
другое.Add(символ)
end; //case
 
// 4. вывод в файл
var результат:=OpenWrite('output.txt' {,тоже можно указать кодировку});
 
foreach var очередь in |цифры, буквы, другое| do begin
  foreach var символ in очередь do результат.write(символ);
  Writeln(результат); //догадаетесь как добавить пустую строку?
  очередь.Clear; //очистить уже ненужное, хотя это делает сборщик мусора
 end;
 
 результат.close
end.

foreach var очередь in Arr(цифры, буквы, другое) do begin

Type
  EXO = ^O;
  O = record
       Data : integer;
       Next : EXO;
  End;
Var
  i : integer;
  O1, EndO1, O2, EndO2 : EXO;
  f1, f2 : text;
  Name, NewName, Stroka, NewStroka : string;
Procedure writeO(Var BeginO, EndO : EXO; k : char);
  . . .
Procedure readO(u : EXO);
  . . .
ModifStr(St : string, NewSt : string);
Var
  l : char;
  O1 := Nil;
  EndO1 := Nil;
  O2 := Nil;
  EndO2 := Nil;
  NewSt := '';
  for i := 1 to Length(St) do
    if St[i] in ['1', '2', '3', '4', '5', '6', '7', '8', '8', '9', '0']
      then
        writeO(O2, EndO2, St[i])
      else
        writeO(O1, EndO1, St[i]);
        while O1 <> Nil do
          begin
            readO(O1, EndO1, l);
            NewSt := NewSt + l;
          end;
        while O2 <> Nil do
          begin
            readO(O2, EndO2, l);
            NewSt := NewSt + l;
          end;
End;
Begin
  write('Введите имя исходного файла: ');
  readln(Name);
  write('Введите имя файла-результата: ');
  readln(NewName);
  assign(f1, Name);
  assign(f2, NewName);
  reset(f1);
  rewrite(f2);
  while not Eof(f1) do
    begin
      readln(f1, Stroka);
      ModifStr(Stroka, NewStroka);
      writeln(f2, NewStroka);
    end;
  close(f1);
  close(f2);
End.

  if St[i] in ['0'..'9']

Type
  EXO = ^O;
  O = record
       Data : integer;
       Next : EXO;
  End;
  
var X : EXO;
begin
  New(X);
  X^.Data := 200;
  X^.Next := X;
  WriteLn(X^.Data);
  Dispose(X)
end.

type
  EXO = ^O;
  O = record
    Data: char;
    Next: EXO;
  End;
 
procedure writeO(var BeginO: EXO; k: char);
var tmp:EXO;
begin
  new(tmp); 
  tmp^.next:=BeginO; 
  tmp^.data:=k;
  BeginO:=tmp; 
end;
 
procedure GetList(O: EXO; var NewStroka: string);
var tmp:EXO;
begin
  NewStroka := '';
  tmp := O;
  while tmp <> nil do
  begin  
    NewStroka := tmp^.Data + NewStroka;
    tmp := tmp^.next;
  end;
end;
 
procedure ModifyList(var O1,O2,O3 : EXO; St: string);
var i: integer;
begin
  for i := 1 to Length(St) do
    if St[i] in ['1', '2', '3', '4', '5', '6', '7', '8', '8', '9', '0']
      then writeO(O1, St[i])
    else
      if St[i] in ['a'..'z', 'A'..'Z'] 
         then writeO(O2, St[i])
         else writeO(O3, St[i]);
end;
 
procedure FreeList(var O : EXO);
var tmp:EXO;
begin
  while O <> nil do
  begin  
    tmp:=O; 
    O := O^.next;
    dispose(tmp);
  end;
  O := nil
end;
 
procedure FreeLists(var O1,O2,O3 : EXO);
begin
  FreeList(O1);
  FreeList(O2);
  FreeList(O3);
end;
 
var
  f1, f2: text;
  Name, NewName, Stroka: string;
  O1, O2, O3 : EXO;  
 
begin
  write('Введите имя исходного файла: ');
  readln(Name);
  write('Введите имя файла-результата: ');
  readln(NewName);
  
  assign(f1, Name);
  reset(f1);
  O1 := nil; O2 := nil; O3 := nil;
  while not Eof(f1) do
  begin
    readln(f1, Stroka);
    ModifyList( O1, O2, O3, Stroka);
  end;
  close(f1);
  
  {вывод результатов в файл output}
  assign(f2, NewName);
  rewrite(f2);
  GetList(O1, Stroka);
  writeln(f2, Stroka);
  GetList(O2, Stroka);
  writeln(f2, Stroka);
  GetList(O3, Stroka);
  writeln(f2, Stroka);
  close(f2);
  
  {очистить выделенную под списки память}
  FreeLists(O1,O2,O3);
  
  WriteLn('Готово.')
  
end.

if (s[i]>='0') and (s[i]<='9') then