Работа со стеками. Ошибка "Ожидался тип" - PascalABC.NET

Формулировка задачи:

Доброго времени суток всем. Решала задачку на стеки. К моему удивлению паскаль начал ругаться на первой же строчке и со словами "Ожидался тип" прекращал свою работу. Что не так? Заранее спасибо. Вот задача на всякий случай. Дано N стеков. С ними делают K операций PUSH(I, V), TOP(I), POP(I) -- добавить в стек I число V, показать число на вершине стека I и удалить из вершины стека I (при этом результат показывается). Результат должен содержать столько чисел, сколько операций TOP и POP было сделано. Изначально все стеки пусты. Все операции корректны. Общее число операций -- не больше 10^6. Число стеков максимум 100. Одновременно во всех стеках не может лежать больше 10^5 элементов. Входные данные В первой строке записано два числа N и K, N - количество стеков, K - количество операций. Следующие К строк содержат описания операций. Все числа в стеках не превосходят по абсолютной велечине 10^6. Выходные данные В первую строку выведете через пробел результаты всех операций TOP и POP, в том же порядке как они даны во входном файле. Пример Ввод 100 6 PUSH(100,1) PUSH(100,3) POP(100) PUSH(50,3) TOP(50) TOP(100) Вывод 3 3 1

type p = ^list;
    list = record
    info : integer;
    next : p;
end;
 
var n , k ,i , x, y:integer;
  phead : array [0..101] of point;
 
procedure push (var a : point; i : integer);
var e: point;
begin
  new (e);
  e^.info := i;
  e^.next := a;
  a := e;
  dispose (e);
end;
 
procedure top (a : point);
begin
  writeln (a^.info);
end;
 
procedure pop (var a : point);
 
begin
  writeln (a^.info);
  a^.next := nil;
  a := a.next;
end;
 
begin
  readln (n,k);
  for i:=1 to k do
  begin
    readln (str);
    s := copy (str , 1 , pos ('(' , str));
    delete (str,1,pos('(',str));
    val(copy (str,1,pos(',',str)),x,code);
    if s = 'PUSH' then begin
      delete (str,1,pos(',',str));
      y := copy (str,1,pos(',',str));
      end;
    if s = 'PUSH' then push (phead[x],y)
    else if s = 'TOP' then top (phead[x])
    else if s = 'POP' then pop (Phead[x]);
  end;
end.

Решение задачи: «Работа со стеками. Ошибка "Ожидался тип"»

textual
                            Листинг программы 
                        

                            type p=^tlist;
    tlist = record
    info : integer;
    next : p;
end;
                        