Pascal/Turbo Pascal - AYUDA CON PROGRAMA

{Este programa lee un archivo html y presenta su contenido es algo de esto para empezar}

program leerhtml;

 uses

    crt, dos;

  type

     linea = array[1..1024] of char;

   const

      camino = 'C:\html\';

   var

    f : text;

    dato : linea;

    texto : string;

    cargados, i, u, y, x, cont : integer;

    archivos : array[1..50] of string;

    arh, palabra : string;

    car : char;

    ficheros : searchrec;

    procedure marcador_archivos(cam : string);

   var

      ii : integer;

   begin

      ii := 1;

      findfirst(cam + '*.html', archive, ficheros);

      while doserror = 0 do

      begin

        archivos[ii] := ficheros.name;

        ii := ii + 1;

        if ii > 50 then

        ii := 50;

        findnext(ficheros);

      end;

      cargados := ii - 1;

   end;

   procedure leearchivo(archi : string);

   var

     ps : integer;

   begin

       clrscr;

       assign(f,archi);

    {$I-} reset(f); {$I+}

    if ioresult <> 0 then

    halt(1);

    i := 1;

    ps := 1;

    while not Eof(f) do

       begin

          while not eoln(f) do

          begin

             read(f,car);

             dato[i] := car;

             i := i + 1;

             if i > 1024 then

              i := 1024;

          end;

             for x := 1 to i - 1 do

             begin

             if (dato[x] = '<') or (dato[x] = '/') or (dato[x] = '>') or

                                            (dato[x] = chr(09)) then

             begin

             end

            else

             write(dato[x]);

             end;

             writeln;

             i := 1;

             ps := ps + 1;

             if ps > 22 then

             begin

                writeln;

                writeln('Pulse una tecla');

                readkey;

                ps := 1;

                clrscr;

             end;

             readln(f);

        end;

       close(f);

   end;

  begin

      clrscr;

      marcador_archivos(camino);

      for y := 1 to cargados do

      writeln('  ',y,' ',archivos[y]);

      readln(u);

      leearchivo(camino + archivos[u]);

      writeln;

      writeln('Pulse [Enter]');

      readln;

  end.