POINTER PADA DELPHI SECARA LIFO

HEY,, Kawan, sampai juga kamu di sini ..
 oke langsung saja inilah contoh program DELPHI yang menggunakan Pointer Single linked list secara LIFO.
bagi yang belum paham apa itu LIFO ,FIFO, dan Pointer ,, silahkan baca dulu postingan sebelumnya...

copy code berikut ,, lalu pastekan pada delphi console mu ...
selamat mencoba dan semoga berhasil ...

.................................................................................................................................................................
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;



type
      tipedata = ^ptipedata ;
      ptipedata = record
        nilai:integer;
        next:tipedata;
      end;

      var awal,akhir,data,data1 : tipedata;
      I,n,k :integer;




procedure tambahlifo (n:integer);
begin
  new (data);
  data^.nilai:=n;
  data^.next:=awal;
  if (awal=nil) then
  akhir :=data;
  awal:=data;
end;

 procedure input ();
 begin
  write ('berapa banyak data nilai ? ');
  readln (n);
    for  I := 1 to n do
    begin
      write ('data ke-',I,'? ');
      readln (k);
      tambahlifo(k);

    end;
 end;

procedure tampil ;
begin
  writeln('data awal=',awal^.nilai);
  writeln('data akhir=',akhir^.nilai);
   write('LIFO = ');
  while data <> nil do
  begin
    write(data^.nilai,'');
    data:=data^.next;
  end;
end;

procedure hapus;
begin
  while awal<>nil do
  begin
    data:=awal;
    awal:=data^.next;
    dispose(data);
  end;
end;


begin
awal:=nil;
akhir:=nil;
input;
tampil;
hapus;
readln;
end.
...............................................................................................................................................................
semoga bermanfaat.
heemmm .... jangan lupa comentnya ... kawan.