Задача на формирование двоичного дерева

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, windows, graphics;
 
type
  pt=^el;
  el=record
    data:char;
    next:pt;
  end;
 
var
  s:string;
  f:boolean;
 
procedure readstack(var t:pt; var x:char);
  var d:pt;
begin
  x:=t^.data;
  d:=t;
  t:=t^.next;
  dispose(d);
end;
 
procedure writestack(var t:pt; x:char);
  var d:pt;
begin
  new(d);
  d^.data:=x;
  t:=d;
end;
 
procedure solve(a:string; var pp:boolean);
  var
    head:pt;
    i,n:integer;
    ch:char;
begin
  head:=nil;
  pp:=true;
  i:=1; n:=0;
  while (i<=length(a)) and pp do
  begin
    if a[i] in ['(','[','{'] then
    begin
      n:=n+1;
      writestack(head,a[i])
    end
    else if a[i] in [')',']','}'] then
      begin
        n:=n-1;
        if head<>nil then
        begin
          readstack(head,ch);
          if (abs(ord(ch)-ord(a[i]))>2) then pp:=false;
        end
      end;
    inc(i);
  end;
  if n<>0 then pp:=false;
end;
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln('Vvedite text:');
  readln(s);
  if s<>'' then
  begin
    solve(s,f);
    if f then writeln('Stroka zapisana pravilno!')
    else writeln('V stroke soderjitsia oshibka!');
  end
  else writeln('Stroka pusta!');
  readln;
end.