Pascal/Turbo Pascal - 911 Ayuda con Menú en pascal!!

type

  Dato=record

    Nombre:String;

    direccion:string;

    telefono:integer;

  end;

var

  Datos:Dato;

  opcion:byte;

procedure EntradaDato;

begin

  Writeln('Ingrese su nombre');

  readln(Datos.Nombre);

  Writeln('Ingrese su direccion');

  readln(Datos.direccion);

  Writeln('Ingrese su telefono');

  readln(Datos.telefono);

end;

procedure ConsultaDato;

begin

  Writeln('Nombre: ',Datos.Nombre);

  writeln('Direccion: ',Datos.direccion);

  writeln('Telefono: ',Datos.telefono);

end;

begin

  repeat

  ClrScr;

  Writeln('                 Menu General de Datos');

  writeln();

  writeln('Escoga alguna opcion');

  writeln();

  writeln('1 Entrada de Datos');

  writeln('2 consulta de datos');

  writeln('3 reporte de datos ');

  writeln('4 ayuda');

  writeln('5 salir');

  writeln();

  readln(opcion);

  ClrScr;

  case opcion of

    1:EntradaDato;

    2:ConsultaDato;

    3:writeln('en construccion');

    4:writeln('en construccion');

    5:exit;

  end;

  writeln('Teclee para continuar ');

  readln;

  until opcion=5

end.