Извлечение и удаление из стека[Delphi]

[MariaD]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const a:array[1..5] of Integer=(1,2,3,4,5);
type ptr=^zap;
zap = record
chis:Integer;
next:ptr;
end;
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  r:boolean;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var i:Integer; //x:array[1..10]of Integer;
t,h1:Ptr;
begin
  h1:=nil;
                            //äîáàâëåíèå
  New(t);
  GetMem(t,sizeof(zap));
  for i:=1 to 4 do begin
  t^.chis:=a[i];
  t^.next:=nil;
   if h1=nil then h1:=t
   else begin t^.next:=h1; h1:=t; end;
   Memo2.Lines.Add(IntToStr(t^.Chis));
  end;

  Memo2.Lines.Add(IntToStr(a[5]));

  while h1 <> nil do begin                      //извлечение и удаление
  t:=h1;
   Memo2.Lines.Add(IntToStr(t^.chis));
  h1:=h1^.next;
 dispose(t);
 end;

FreeMem(t);
end;

end.

[Stilet]

А можно нескромный вопрос?
Почему код не отформатировала по правилам? Не новичок же...

[hon]

äîáàâëåíèå

Это нормально?