проблема с задачкой на паскале

[medikod]

Напрягли меня с паскалем, но уже как полтора года не писал на нём.

сам текст программы
Установить в очередь 6 символьных элементов.Добавить символ 'f' после символа 'F' если он существует.

Программа работает но вот с подстановкой f проблема
код который наваял

program pr1;
type Tptr=^elem;
elem=record
inf:char;
link1:Tptr;
end;
var beg, en, p1, p2:tptr;i:integer;
begin
beg:=nil;
en:=nil;
new(p1);
readln(p1^.inf);
p1^.link1:=nil;
beg:=p1;
en:=p1;
for i:=1 to 6 do
begin
new(p1);
readln(p1^.inf);
p1^.link1:=nil;
en^.link1:=p1;
en:=p1;
end;

p2:=beg;
while p2^.link1<>nil do
begin
p2:=p2^.link1;
if p2^.inf='F' then
begin
new(p1);
p1^.inf:='f';
p1^.link1:=nil;
en^.link1:=p1;
en:=p1;
end;
end;

p2:=beg;
if beg =nil then writeln('nety')
else
while p2^.link1<>nil do
begin
write(p2^.inf);
p2:=p2^.link1;
end;
end.