Организовать три очереди с одинаковым количеством элементов

Program MordovskihK;
Type
  EXO = ^O;
  O = record
       Data : real;
       Next : EXO;
  End;
Var
  i, a, b : Real;
  Min, Vibr, Other, EndMin, EndVibr, EndOther : EXO;
  f : File of real;
  Stroka : string;
Procedure writeO(Var BeginO, EndO : EXO; c : real);
  . . .
Procedure Print(u : EXO);
  . . .
Begin
  Min := Nil;
  Vibr := Nil;
  Other := Nil;
  EndMin := Nil;
  EndVibr := Nil;
  EndOther := Nil;
  writeln ('Введите имя файла >');
  readln(Stroka);
  writeln ('Введите промежуток >');
  readln(a, b);
  assign(f, Stroka);
  reset(f);
  while not Eof(f) do
    begin
      read(f, i);
        if i<a
          then
            writeO(Min, EndMin, i)
          else
            if (i>=a) and (i<=b)
              then
                writeO(Vibr, EndVibr, i)
              else
                writeO(Other, EndOther, i)
    end;
  close(f);
  writeln('Числа, меньшие ', а);
  Print(Min);
  writeln('Числа из промежутка [', а, ',' , b, ']');
  Print(Vibr);
  writeln('Числа, большие ', b);
  Print(Other);
End.

program Ochered3;
 
const
  n = 3;
 
type
  Tinf = string;{тип данных, который будет храниться в элементе очереди}
  List = ^TList;{Указатель на элемент типа TList}
  TList = record {А это наименование нашего типа "запись" обычно динамические структуры описываются через запись}
    data: TInf;  {данные, хранимые в элементе}
    next: List;   {указатель на следующий элемент}
  end;
 
{Процедура добавляющая элемент в очередь}
procedure AddElem(var stek1: List; znach1: TInf);
var
  tmp: List;
begin
  New(tmp); {выделяем в памяти место для нового элемента}
  tmp^.next := stek1;  {указатель на следующий элемент "направляем" на хвост очереди}
  tmp^.data := znach1; {добавляем к элементу данные}
  stek1 := tmp; {хвост очереди изменился, надо перенести и указатели на неё}
end;
 
{Процедура вывода очереди начиная с хвоста}
procedure Print(stek1: List);
begin
  if stek1 = nil then {проверка на пустоту очереди}
  begin
    writeln('Очередь пуста.');
    exit;
  end;
  while stek1 <> nil do {пока указатель stek1 не станет указывать в пустоту}
  begin{а это произойдёт как только он перейдёт по ссылке последнего элемента}
    Write(stek1^.data, ' '); {выводить данне}
    stek1 := stek1^.next{и переносить указатель в начало очереди}
  end;
end;
 
{Процедура освобождения памяти занятой очередью}
procedure FreeStek(stek1: List);
var
  tmp: List;
begin
  while stek1 <> nil do {пока stek1 не станет указывать в "пустоту" делать}
  begin
    tmp := stek1; {указатель tmp направим на хвост очереди}
    stek1 := stek1^.next; {хвост очереди перенесём на следующий за данным элементом элемент}
    Dispose(tmp);{освободим память занятую под удаляемый элемент}
  end;
end;
 
var
  Stk1, {переменная, которая всегда будет указывать на "хвост" очереди}
  Stk2, Stk3: List; {рабочая переменная}
  znach: Tinf; {данные вводимые пользователем}
  i: integer;
 
begin
  Stk1 := nil;
  Stk2 := nil;
  Stk3 := nil;
  for i := 1 to n do 
  begin
    write('Введите значение добавляемого элемента для 1-й очереди: ');
    readln(znach); {считываем значение добавляемого нового элемент}
    AddElem(Stk1, znach);
  end;
  for i := 1 to n do 
  begin
    write('Введите значение добавляемого элемента для 2-й очереди: ');
    readln(znach); {считываем значение добавляемого нового элемент}
    AddElem(Stk2, znach);
  end;
  for i := 1 to n do 
  begin
    write('Введите значение добавляемого элемента для 3-й очереди: ');
    readln(znach); {считываем значение добавляемого нового элемент}
    AddElem(Stk3, znach);
  end;
  
  Writeln('Очередь № 1:');
  Print(Stk1); {вызов процедуры вывода}
  Writeln;
  Writeln('Очередь № 2:');
  Print(Stk2); {вызов процедуры вывода}
  Writeln;
  Writeln('Очередь № 3:');
  Print(Stk3); {вызов процедуры вывода}
  FreeStek(Stk1); {освобождаем память занятую очередью}
  FreeStek(Stk2); {освобождаем память занятую очередью}
  FreeStek(Stk3); {освобождаем память занятую очередью}
end.