Pascal/Turbo Pascal - No compila, se me cierra...

procedure leodni;

  begin

	writeln('Ingrese el DNI del cliente');

	readln(dni);

	reset (clientes); :<------------------------------  se supone que esta abierto ya

	repeat

		read(clientes,c) <---------------------------------  estas leyendo el mismo registro siempre no avanzas

	until(c.dnic=dni) or (eof(clientes));

	if (c.dnic=dni) then seek(clientes,filepos(clientes)-1);

	writeln('c.dni: ',c.dnic,' dni: ',dni);

	if (c.dnic<>dni) then

		repeat

			writeln('Ingrese una opcion correcta');

			readln(dni);

			reset (clientes);  <-------------------------  vuelves a abrir ya lo tenias abierto

			repeat

				read(clientes,c) <--------------------  estas leyendo el mismo registro siempre no avanzas

			until(c.dnic=dni) or (eof(clientes))

  los sistemas de registros se devén de  leer así:

    i := 0;

  repeat

   seek(clientes,i);

    read(clientes,c);

    i := i + 1;

   until (c.dnic=dni) or (i > filesize(clientes) - 1);

  if  c.dnic=dni then

  realizamos lo que deseemos .

assign(clientes,'C:\proyecto\clientes.dat');

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

 if ioresult <> 0 then

  begin

         rewrite(clientes):

   end;