линейные односвязные списки в паскале

[SnS]

здравствуйте, подскажите, пожалуйста, в чём ошибка: Создать список из n-штук символов , вводимых с клавиатуры ( n – вводит пользователь). Далее просмотреть список и определить правильно ли расставлены квадратные скобки , то есть все ли открывающиеся скобки «[» имеют закрывающуюся скобку «]».

type list=^item;
item=record
data:char;
next:list;
end;
var head,r,q:list;
x:char; k,i,n,m:integer;
begin
writeln('Введите n ');
readln(n);
writeln('Введите текст ');
new(head);
q:=head;
readln(x);
q^.data:=x;

if x='[' then inc(k) else
if x=']' then dec(k);
m:=0;
while m<>n-1 do
begin
new(r);
readln(x);
r^.data:=x;
if k=0 then writeln ('Скобки расставлены правильно') else
if k=1 then writeln ('Лишняя открывающая скобка') else
if k>1 then writeln ('Лишние открывающие скобки')else
if k=-1 then writeln ('Лишняя закрывающая скобка') else
writeln ('Лишние закрывающие скобки');
q^.next:=r;
q:=r;
m:=m+1;
end;
q^.next:=nil;
q:=head;

end.