J3r!t@n si R14

Program linkedlist;
uses wincrt;
type llist=^data;
data=record
info:char;
next:llist;
end;
var p:llist;
choise:char;
procedure insertfront(var p:llist);
var baru:llist;
begin
new(baru);
write('masukkan info [selanjutnya tekan enter]:');read(baru^.info);
if p=nil then
begin
p:=baru;
p^.next:=nil;
end
else
begin
baru^.next:=p;
p:=baru;
end;
end;
procedure insertback(var p:llist);
var baru,bantu :llist;
begin
NEW(BARU);
baru^.next:=NIL;
write('masukkan info [selamjutnya tekan enter]:');read(baru^.info);
if p=nil then
begin
p:=baru;
end
else
begin
bantu:=p;
while (bantu^.next<>nil) do
bantu:=bantu^.next;
bantu^.next := baru;
end;
end;
procedure insertsort(var p:llist);
var baru,bantu :llist;
begin
NEW(BARU);
baru^.next:=NIL;
write('masukkan info [selamjutnya tekan enter]:');read(baru^.info);
if p=nil then
begin
p:=baru;
end
else
IF BARU^.INFO begin
baru^.next:=p;
p:=baru
end;
begin
bantu:=p;
while (bantu^.next<>nil) and (baru^.info>bantu^.info) do
bantu:=bantu^.next;
baru^.next := bantu^.next;
bantu^.next:=baru;
end;
end;
procedure printdata(q:llist);
var baca:llist;
begin
baca:=q;
write('info=');
repeat
if baca^.next=nil then
write(baca^.info);
begin
write(baca^.info,'->');
end;
baca:=baca^.next;
until baca=nil;
end;
begin
new(p);
p^.info:='a';
p^.next:=nil;
repeat
clrscr;
writeln('===================');
writeln('Program Linked List');
writeln('===================');
writeln('1.insertfront');
writeln('2.insertback');
writeln('3.insertsort');
writeln('4.printdata');
writeln('5.exit');
writeln('===================');
write('pilihan:'); choise:=readkey;
writeln;
writeln('===================');
case choise of
'1':insertfront(p);
'2':insertback(p);
'3':insertsort(p);
'4':printdata(p);
end;
readln;
until choise='5';
end.