Grafikus képernyőn hogy kérjem be az adatot? (FreePascal)

Tipusos file ba írja be be is írja csak az a baj hogy,

csak az utolsó karaktert rakja be ami az enter.

Pl.: beírom hogy morzsi leütöm az entert és akkor beírja az utolsó karaktert az entert.

Probáltam már azt is hogy ha entert üt akkor törölje ki az utolsó karaktert delete függvénnyel de akkor meg a repeat until nem teljesül.

repeat

outtextxy(1,1,'Kerem a kutya nevet:');

i:=i+10;

kutyak.nev:=readkey;

outtextxy(1+i,10,kutyak.nev);

until (kutyak.nev=#13);