Pascal Вывести след за объектом анимации

[Эмиль55]

Прошу помощи, так как нигде не могу найти даже как примерно это сделать.
Анимация смайлика под управлением курсорных клавиш,нужно дополнить так, чтобы смайлик оставлял за собой буквы или цифры (смотря на что нажать). Допустим идёт смайлик направо, вы нажимаете на кнопку G и вслед за смайликом эта буква появляется.
Надеюсь написал корректно так как это моё первое сообщение.

uses graph,crt; 
procedure Smail(x,y,r,c1,c2,c3:integer); 
begin 
setfillstyle(1,c1); 
fillellipse(x,y,r,r); 
setcolor(c1); 
circle(x,y,r); 
setcolor(c2); 
setfillstyle(1,c2); 
fillellipse(x-3,y-3,2,2); 
fillellipse(x+3,y-3,2,2); 
setcolor(c3); 
Arc(x,y+5,0,180,3); 
end; 
var x,y,r,d:integer; 
k:char; 
begin 
x:=0; 
initgraph(x,y,''); 
x:=getmaxX div 2; 
y:=getmaxY div 2; 
r:=8; 
outtextXY(x-80,20,'Upravlenie - Strelki'); 
outtextXY(x-50,40,'Exit - Esc'); 
Smail(x,y,r,14,9,8); 
repeat 
if keypressed then 
begin 
k:=readkey; 
if k=#80 then 
begin 
delay(100); 
Smail(x,y,r,0,0,0); 
if y>getmaxY-2*r then d:=0 
else d:=10; 
y:=y+d; 
Smail(x,y,r,14,9,8); 
end; 
if k=#72 then 
begin 
delay(100); 
Smail(x,y,r,0,0,0); 
if y<2*r then d:=0 
else d:=10; 
y:=y-d; 
Smail(x,y,r,14,9,8); 
end; 
if k=#77 then 
begin 
delay(100); 
Smail(x,y,r,0,0,0); 
if x>getmaxX-2*r then d:=0 
else d:=10; 
x:=x+d; 
Smail(x,y,r,14,9,8); 
end; 
if k=#75 then 
begin 
delay(100); 
Smail(x,y,r,0,0,0); 
if x<2*r then d:=0 
else d:=10; 
x:=x-d; 
Smail(x,y,r,14,9,8); 
end; 
if k=#27 then exit; 
end; 
until k=#27; 
end.

И как его смотреть - даже минимального форматирования отступами нет. Можно еще все в одну строку, тоже код ))
Модератор