Pascal/Turbo Pascal - ayuda con problemas en pascal

Program Bisiesto;

uses crt;

var

   anio:integer;

   esbisiesto:boolean;

Begin

    WRITELN('<====Programa que Determina si un Año es Bisiesto====>');

    WRITELN; WRITELN;

    Write(' Cuál es el año? '); readln(anio);

    WRITELN; WRITELN;

    Esbisiesto:=false;

      if anio mod 4 = 0  then

            esbisiesto:=true;

      if (anio mod 100=0) and (anio mod 400 <> 0) then

           esbisiesto:=false;

   write('El año ',anio);

     if esbisiesto then

          write(' Es bisiesto...')

     else

          write(' No Es bisiesto...');

 WRITELN

readln;

end.

Program MoverLetra;

Uses CRT;

var

  c, tecla:char;

  x,y:integer;

Begin

  writeln(ord('f'));

  x:=40; y:=12;

  clrscr;

  Writeln('Introduzca un car cter: ');

  readln(c);

  Repeat

    gotoxy(x,y);

    write(c);

    tecla:=readkey;

    case tecla of

      #72 : y:=y-1;

      #80 : y:=y+1;

      #77 : x:=x+1;

      #75 : x:=x-1;

    end;

    clrscr;

    gotoxy(x,y);

  Writeln(c);

  until tecla='f';

  readln;

end.