помогите с кодом программы. в паскале вылетает ошибка.

[danilkin]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
tptz=^tstack;
tstack=record
inf:char;
adr:tptz;
end;

procedure push(var top:tptz;ch:char);
var p:tptz;
begin
new(p);
p^.inf:=ch;
p^.adr:=top;
top:=p;
end;

procedure pop(var top:tptz;var ch:char);
var p:tptz;
begin
ch:=top^.inf;
p:=top;
top:=p^.adr;
dispose(p);
end;


var top:tptz;
ch:char;
f:text;
adr:string[30];

begin
writeln('vvedite adres faila dlya preobrazovaniya');
readln(adr);
assign(f,adr);
reset(f);
top:=nil;
while not eof(f) do
begin
read(f,ch);
push(top,ch);
end;
close(f);
rewrite(f);
while top<>nil do
begin
pop(top,ch);
write(f,ch);
end;
close(f);
readln
end.
задание было такое: Напишите программу реализации стеков с помощью указателей.

[OCTAGRAM]

Так Паскаль или Делфи?

[danilkin]

паскаль, в делфи все работает

[OCTAGRAM]

В Паскале убрать

{$APPTYPE CONSOLE}

uses
SysUtils;

[danilkin]

большое спасибо, все заработало