Переделать объект из record в class

Unit pshQ;
interface
 type
   item = ^q;
  q = record
       data : string;
       next : item;
end;
Procedure writeQ(Var BeginQ, EndQ : item; c : string);
Function  readQ(Var BeginQ : item) : string;
Function empty(u : item): boolean;
implementation
Function readQ(Var BeginQ : item) : string;
Var
  u : item;
Begin
  if empty(BeginQ)
    then
      writeln('Очередь пуста')
    else
      begin
        readQ := BeginQ^.Data; {считываем искомое значение в переменную с}
        u := BeginQ; {ставим промежуточный указатель на первый элемент очереди}
        BeginQ := BeginQ^.Next;{указатель начала переносим на следующий элемент}
        dispose(u); {освобождаем память, занятую уже ненужным первым элементом}
      end;
End;
Procedure writeQ(Var BeginQ, EndQ : item; c : string);
Var
  u : item;
Begin
  new(u);
  u^.data := c;
  u^.next := Nil;
  if BeginQ =Nil
    then
      BeginQ := u {ставим указатель начала очереди на первый созданный элемент}
    else
      EndQ^.Next := u; {ставим созданный элемент в конец очереди}
      EndQ := u; {переносим указатель конца очереди на последний элемент}
End;  
     Function empty(u : item): boolean;
Begin
  empty := (u=Nil);
End;
end.
uses pshQ;
var
  queue :item;// ТЕкущая переменная
  b : char; 
  ch: string;
  f:integer;
  BeginQ, EndQ : item;
 
begin//MAIN
  queue := nil;
  b := '1';
  f:=0;
  BeginQ:=nil;
  EndQ:=nil;
  writeln('1. Добавить в очередь');
  writeln('2. Завершил первый в очереди');
  writeln('3. Уход декана');
  writeln('0. Завершить работу');
  while b <> '0' do
  begin
    write('Что надо сделать? Ввод числа: ');
    readln(b);
    case b of
      '1': 
        begin
        write('Кто зашел в очередь? : ');
        readln(ch);
        writeQ(queue, EndQ, ch);
        f:=f+1;
        end;
      '2':
        begin 
        writeln('Получил что хотел и покинул кабинет: ',readQ(queue));
        f:=f-1;
        end;
      '3':
      begin
      Write('Декан ушел и за ним ');
      if f=1 then writeln('покинул очередь: ',readQ(queue),'... Зря заходил :С')
      else
      begin
      writeln('покинули очередь: ');
      while queue<>nil do
      begin
      writeln('- ',readQ(queue));
      end;
      end;
      end;
   end;   
  end;
end.