Программа пропускает readln()

{4. Создать очередь. Извлечь из очереди заданную компоненту. Поставить в очередь новую компоненту на i–е место.}
uses crt;
type
qe = ^queue1;
queue1 = record
  data:char;
  next:qe;
end;
var
  head,q,tail:qe;
  g:byte;
procedure add_queue(var head,tail:qe);
  var y:qe;
      i:char;
   begin
     writeln('Введите любой символ для добавления его в очередь. Для окончания нажмите "."');
     while (i<>'.') do
       begin
        new(y);
        readln(i); 
        y^.data := i;
        y^.next := nil;
        if head = nil then
          head := y
        else
          tail^.Next := y;
        tail := y;
        end;
  end;
procedure add_in_tail(var head,tail:qe);
var u:qe;
    x : char;
    begin
      Writeln('Введите элемент');
      readln(x);
      new(u);
      u^.data := x;
      u^.next := nil;
      if head = nil then
          head := u
        else
          tail^.next := u;
        tail:=u;
    end;
 
procedure write_queue(var head:qe);
begin
   q:=head;
    while(q<>nil) do
    begin
      write(q^.data:3);
      q:=q^.next;
    end;
    readkey();
end;
procedure pull(var head:qe);
var i:char;
    u:qe;
  begin
   if head =nil then
     writeln('Очередь пуста')
   else
   begin
     i:=head^.data;
     u:= head;
     head :=head^.next;
     dispose(u);
   end;
   Writeln();
   Writeln('Извлеченная компонента: ',i);
   readkey();
  end;
  
  begin
    repeat
    clrscr;
    Writeln('Выберите действие');
    Writeln('1. Создать очередь'); 
    Writeln('2. Добавить элемент в очередь');
    Writeln('3. Извлечь элемент из очереди');
    Writeln('4. Вывести очередь на экран');
    read(g);
    case g of
      1: add_queue(head,tail);
      2: add_in_tail(head,tail);
      3: pull (head);
      4: write_queue(head);
      else exit;
    end;
    until not(g in [1..4]);
  end.