Pascal/Turbo Pascal - subir y bajar

buenas nesecito ayuda tengo que hacer un programa que le pida al usuario que ingrese un caracter luego que lo despliegue en el centro de la pantalla y con las letras a(suba), b(baje), d (se mueva a la derecha), i(se mueva hacia la izquierda), f(para terminar), por su ayuda gracias.

Hola Byron!
Hace poco había hecho uno, así que lo adapté a "tus teclas":

program MoverLetra;
uses crt,dos;

var
letra,tecla : char;
x,y : byte;
salir : boolean;
begin
clrscr;
salir:=false;
write('Ingrese un caracter: '); readln(letra);
clrscr;
x:=40;
y:=12;
gotoxy(x,y);
write(letra);
repeat
if keypressed then
begin
tecla:=readkey;
gotoxy(x,y);
write(' ');
case tecla of
'a','A' : begin
if (y > 1) then
dec(y)
else
y:=25;
end;
'b','B' : begin
if (y < 25) then
inc(y)
else
y:=1;
end;
'd','B' : begin
if (y < 80) then
inc(x)
else
y:=1;
end;
'i','I' : begin
if (x > 1) then
dec(x)
else
x:=80;
end;
'f','F' : salir:=true;
end;
gotoxy(x,y);
write(letra);
end;
until(salir);
end.

Un abrazo!