стек и очередь

uses crt;
type TStack=record
m:array[1..1000]of integer;
l:integer;
end;
 
var ch:char;
k,m:integer;
input:text;
st:TStack;
 
procedure push(var a:TStack; e:integer);
begin
 inc(a.l);
 a.m[a.l]:=e;
end;
 
procedure take(var a:TStack;var e:integer);
begin
 if a.l>0 then
 begin
  e:=a.m[a.l];
  dec(a.l);
 end;
end;
 
begin
 clrscr;
 k:=0;
 assign(input,'input.txt');
 reset(input);
 while not eof(input) do
 begin
  read(input,ch);
  inc(k);
  if ch='(' then push(st,k) else if ch=')' then
  begin
   get(st,m);
   writeln(m,' - ',k);
  end;
 end;
 close(input);
 readln;
end.

Program xa;
uses
  crt;
type
  Tinf=longint;
  List=^TList;
  TList=record
    data:TInf;
    next:List;
  end;
 
procedure Push(var stek1:List;znach1:TInf;c:char);
var
  tmp:List;
begin
  GetMem(tmp,sizeof(TList));
  tmp^.next:=stek1;
  tmp^.data:=znach1;
  stek1:=tmp;
end;
 
 
Procedure Pop(var stek1:List);
var
  tmp:List;
begin
  if stek1=nil then
    exit;
  tmp:=stek1;
  stek1:=stek1^.next;
  Write(tmp^.data,' - ');
  FreeMem(tmp,SizeOf(TList));
end;
 
var
  a:List;
  l:longint;
  ch:char;
  f:text;
begin
  clrscr;
  assign(f,'input.txt');
  reset(f);
  a:=nil;
  l:=0;
  while not eof(f) do
  begin
    read(f,ch);
    inc(l);
    if (ch='(') then
      Push(a,l,ch);
    if ch=')' then
    begin
      Pop(a);
      Writeln(l);
    end;
  end;
  close(f);
  readkey;
end.