Реализация стека через динамическую структуру

[Asya7]

Помогите пожалуйста, найти ошибки. Дан текстовый файл, в котором записаны строки, размер которых не превышает [80]. Нужно, используя стек переписать строки в обратом порядке ( не символы, а именно строки). Осуществить стек на основе динамической структуры - списка.(Задачу выполняю на PascalABC.NET)

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 Init(var s: stek);
begin
   s := nil;
end;

function IsE(s: stek): Boolean;
begin
   Result := s <> nil;
end;

procedure puch(var s: stek; d: tData);
var
   p: stek;
begin
   new(p);
   p^.data := d;
   p^.next := s;
   s := p;
end;


procedure pop(var s: stek; d: tData);
var
   p: stek;
begin
   d := s^.data;
   p := s;
   s := s^.next;
   dispose(p);
end;

begin
   Assign(f1, 'словарь.txt');
   Reset(f1);
   assign(f2, 'g.txt');
   Rewrite(f2);
   Init(s);
   while not eof(f1) do 
   begin
      readln(f1, d);
      puch(s, d);
   end;
   while not Ise(s) do 
   begin
      pop(s, d);
      writeln(d);
   end;
end.

[Asya7]

Уже всё разрешилось! Вот правильный код:

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 Init(var s: stek);
begin
   s := nil;
end;

function IsE(s: stek): Boolean;
begin
   Result := s <> nil;
end;

procedure puch(var s: stek; d: tData);
var
   p: stek;
begin
   new(p);
   p^.data := d;
   p^.next := s;
   s := p;
end;


procedure pop(var s: stek; var d: tData);
var
   p: stek;
begin
   d := s^.data;
   p := s;
   s := s^.next;
   dispose(p);
end;

begin
   Assign(f1, 'словарь.txt');
   Reset(f1);
   assign(f2, 'g.txt');
   Rewrite(f2);
   Init(s);
   while not eof(f1) do 
   begin
      readln(f1, d);
      puch(s, d);
   end;
   close(f1);
   while Ise(s) do 
   begin
      pop(s, d);
      writeln(f2,d);
   end; 
   close(f2);
end.

[GreenWizard]

пара замечаний:
1) push
2) IsE => isEnd
3) stek => Stack => PStack или TStack, смотря какая у тебя вера))
мелочи, но лучше учиться сразу писать норм)

[Asya7]

Спасибо за исправления! В дальнейшем буду учитывать.

[GreenWizard]

Сообщение от Asya7

Спасибо за исправления! В дальнейшем буду учитывать.

Просто, понимаешь, это сейчас твои проги и сотни строк не занимают, да и логика проста, а вот начнёшь писать серьёзное и крупное - все эти мелочи будут очень ощутимо мешать..... думаю, что ты и сама видела много рекомендаций по написанию кода, но на мелких проектах от них толку мало, одни сложности в неумелых руках, поэтому ими и пренебрегают студенты