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

program IR2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
type
  {Основные данные.}
  TData = integer;
  TPElem = ^TElem;   //Указатель на элемент очереди
  {Элемент очереди.}
  TElem = record
    Data : TData;   {Основные данные.}
    PNext : TPElem; {Указатель на следующий элемент очереди.}
  end;
  {Очередь.}
  TQueue = record
    PFirst, PLast : TPElem; {Указатели на первый и на последний элементы очереди.}
  end;
 
//Если очередь непуста, то следует применить вызов QFree().}
procedure Init(var aQ : TQueue);
begin
  aQ.PFirst := nil;
  aQ.PLast := nil;
end;
 
{Добавление элемента в конец очереди.}
procedure Push(var aQ : TQueue; const aData : TData);
var
  PElem : TPElem;
begin
  New(PElem);
  PElem^.Data := aData;
  PElem^.PNext := nil;
  if aQ.PFirst = nil then
    aQ.PFirst := PElem
  else
    aQ.PLast^.PNext := PElem;
  aQ.PLast := PElem;
end;
 
{Изъятие элемента из начала очереди. Если очередь не пуста, то
из начала очереди извлекается элемент и его значение возвращается
через параметр aData. В этом случае функция возвращает True.
Если очередь пуста, то операция отменяется и функция возвращает False.}
function Pop(var aQ : TQueue; var aData : TData) : Boolean;
var
  PElem : TPElem;
begin
  Pop := False;
  if aQ.PFirst = nil then
    Exit;
 
  PElem := aQ.PFirst;
  aData := PElem^.Data;
  aQ.PFirst := PElem^.PNext;
  if aQ.PFirst = nil then
    Init(aQ);
  Dispose(PElem);
  Pop := True;
end;
 
{Освобождение памяти, выделенной для элементов очереди (очистка очереди).}
procedure QFree(var aQ : TQueue);
var
  Data : TData;
begin
  while Pop(aQ, Data) do;
end;
 
 //все хорошо
const
  Fn1 = 'file_in.txt';
  Fn2 = 'file_out.txt';
var
  F1, F2 : Text;
  Q1, Q2, Q3 : TQueue;
  Data : TData;
  i,l : Integer;
  s : array of integer;
begin
 
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  {Начальная инициализация очередей.}
  Init(Q1); {Очередь для символов, отличных от знаков препинания и цифр.}//для цифр до а
  Init(Q2); {Очередь для знаков препинания.}//для цифр от а до b
  Init(Q3); {Очередь для цифр.}
  {Связываем файловые переменные с именами файлов.}
  Assign(F1, ExtractFilePath(ParamStr(0)) + Fn1);
  Assign(F2, ExtractFilePath(ParamStr(0)) + Fn2);
 
  repeat
    {Открываем файл с входными данными, читаем его содержимое построчно.}
    Reset(F1);
    while not Eof(F1) do
    begin
      Readln(F1, s[i]); //как правильно записать числа из файла в динам. масив?
      Inc(i);
      for i := 1 to length(s) do {В зависимости от вида символов записываем их в соответствующие очереди.}
      case S[i] of
        s[i]<10 : Push(Q2, S[i]); //добавить в очередь елементы из файла мненьше 10
        s[i]>10) and (s[i]<20) : Push(Q3, S[i]);//больше 10 и меньше 20
        else
          Push(Q1, S[i]);//  остальные елменты
      end;
    end;
    CloseFile(F1);
 
    {Создаём выходной файл и последовательно записываем в него данные трёх очередей.}
    Rewrite(F2);
    while Pop(Q1, Data) do
      Write(F2, Data);
    while Pop(Q2, Data) do
      Write(F2, Data);
    while Pop(Q3, Data) do
      Write(F2, Data);
    CloseFile(F2);
 
    Writeln('Входной файл: "', Fn1, '".');
    Writeln('Выходной файл: "', Fn2, '".');
    {Освобождение памяти, выделенной для элементов очередей.
    В данном случае очереди и так уже пустые, но грамотно спроектированный код
    должен содержать эти действия.}
    QFree(Q1);
    QFree(Q2);
    QFree(Q3);
    Writeln('Память, выделенная для очередей, освобождена.');
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S[i]);
  until S[i] <> 0;
end.

    Reset(F1);
    while not Eof(F1) do
    begin
      Readln(F1,Data);
       case Data of
        Data<10: Push(Q2, Data);
        Data>10) and (Data<20) : Push(Q3, Data);
        else
          Push(Q1, Data);
      end;
    end;
    CloseFile(F1);

  repeat
    {Открываем файл с входными данными, читаем его содержимое построчно.}
    Reset(F1);
    while not Eof(F1) do
    begin
      Readln(F1,Data); //ругается
      if Data<10 then Push(Q2, Data) //добавить в очередь елементы из файла мненьше 10
      else if (Data>10) and (Data<20) then Push(Q3, Data) //больше 10 и меньше 20
        else
          Push(Q1, Data);//  остальные элементы
    end;
    CloseFile(F1);
 
    {Создаём выходной файл и последовательно записываем в него данные трёх очередей.}
    Rewrite(F2);
    while Pop(Q1, Data) do
      Write(F2, Data);
    while Pop(Q2, Data) do
      Write(F2, Data);
    while Pop(Q3, Data) do
      Write(F2, Data);
    CloseFile(F2);
 
    Writeln('Входной файл: "', Fn1, '".');
    Writeln('Выходной файл: "', Fn2, '".');
    {Освобождение памяти, выделенной для элементов очередей.
    В данном случае очереди и так уже пустые, но грамотно спроектированный код
    должен содержать эти действия.}
    QFree(Q1);
    QFree(Q2);
    QFree(Q3);
    Writeln('Память, выделенная для очередей, освобождена.');
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(Data);
    until Data = 0 ;
end.