Pascal/Turbo Pascal - ayuda para buscar dentro de un array de valores

Uses CRT;

Type

  TipoRegistro = Record

    Nombre : string;

    Ape    : string;

    edad   : byte;

    FNac   : String;

    ECivil : Char;

  end;

  TipoTabla = Array [1..10] of TipoRegistro;

var

  TABLA    : Tipotabla;

  REGISTRO : TipoRegistro;

Procedure buscarNombre(Nom:string; var t : tipoTabla);

var

  i : integer;

begin

  For i :=1 to 10 do

    if t[i].nombre= nom then

      begin

        Writeln(T[i].nombre);

        writlen(T[i].ape);

        Writeln(T[i].edad);

        writeln(T[i].fnac);

        writeln(T[i].ecivil

      end;

end;

begin

end.