Pascal/Turbo Pascal - Programa en pascal

ke tal!! pues necesito saber como hacer un programa en pascal donde al ingresar un caracter me lo muestre en el centro de la pantalla y al presionar la letra a que se mueva el caracter hacia arriba, al presionar la letra b que se mueva hacia abajo, al presionar la i que se mueva hacia la izquierda, al presionar la d hacia la derecha y al presionar la f que salga del programa. Gracias es que hace mucho que no trabajo con pascal y no me acuerdo de nada!!!

Hola Emmanuel! bueno, aqui tienes un código posible:

program Mover_Letra;
uses crt;

var
tecla,letra : char;
X,Y : byte;

begin
Clrscr; {limpio la pantalla}
Write('Escribe un caracter: ');
ReadLn(letra);
X:=40;
Y:=12;
{me situo en el centro de la pantalla y escribo el caracter}
Clrscr; {limpio la pantalla}
GoToXY(X,Y);
Write(letra);
{ahora repito hasta que se presione la F}
repeat
if KeyPressed then {si presiono alguna tecla...}
begin
tecla:=ReadKey; {asigno a letra la tecla presionada}
GoToXY(X,Y);
Write(' '); {borro el caracter anterior}
case tecla of
'a','A' : begin
if Y > 1 then
Y:=Y - 1
else
Y:=24;
end;
'b','B' : begin
if Y < 24 then
Y:=Y + 1
else
Y:=1;
end;
'i','I' : begin
if X > 1 then
X:=X - 1
else
X:=80;
end;
'd','D' : begin
if X < 80 then
X:=X + 1
else
X:=1;
end;
end;
GoToXY(X,Y);
Write(letra); {escribo el nuevo caracter}
end;
until(UpCase(tecla) = 'F');
end.

Un abrazo!