TAF

Sou iniciante em PASCAL e entou fazendo um programa simples de FILA.
Gostaria de uma ajuda para deixar esse preograma mais enxuto com o uso de FUNCTION por exemplo.
Alguém poderia me ajudar?

type apontador = ^no;
no = record
dado : integer;
prox : apontador;
end;

var p, inicio, fim, busca : apontador;

begin
p:= nil;
new (p);

p^.dado := 12;
p^.prox := nil;

inicio := p;
fim := p;

new (p);

p^.dado := 7;
p^.prox := nil;
p^.prox := fim;

fim := p;
new (p);

p^.dado := 17;
p^.prox := nil;
p^.prox := fim;

fim := p;
new (p);

p^.dado := 10;
p^.prox := nil;
p^.prox := fim;

fim := p;

if (fim^.prox<>nil) then

begin
p := fim;
busca := fim^.prox;

while (busca^.prox<>nil)

do
busca := busca^.prox;
p := p^.prox;
end;

inicio := p;
inicio^.prox := nil;
dispose (busca)
end.