Помогите пожалуйста, найти ошибки.
Дан текстовый файл, в котором записаны строки, размер которых не превышает [80]. Нужно, используя стек переписать строки в обратом порядке ( не символы, а именно строки). Осуществить стек на основе динамической структуры - списка.
Код:
program g;
type
tData = string[80];
tHtd = ^Htd;
Htd = record
data: tData;
next: tHtd;
end;
stek = tHtd;
var
d: tData;
s: stek;
f1,f2:text;
procedure puch(var s: stek; d: tData);
var
p: stek;
begin
new(p);
p^.data := d;
p^.next := nil;
s := p;
end;
procedure pop(var s: stek; d: tData);
var
p: stek;
begin
d := s^.data;
writeln(f2,d);
p := s;
s := s^.next;
dispose(p);
end;
begin
Assign(f1, 'словарь.txt');
Reset(f1);
assign(f2,'g.txt');
Rewrite(f2);
while eof(f1) do
readln(f1, d);
puch(s, d);
while s<>nil do
pop(s,d);
end.