Erro a apagar ficheiro... ajuda é urgente

[pipasmeimoa]

procedure Apagar;

var k:char;

    n:integer;

begin

  if not ExisteFicheiro then

    begin

      writeln('Ficheiro inesistente');

      write('Tecle ENTER para menu');

      end

  else

    begin

      reset(fich1);

      writeln('                        Efectuar reset? s/n'); readln(n);

      readln;

      writeln('');

          seek(fich1,n-1);

      writeln('                    Deseja mesmo fazer reset? : ');

      writeln('                    |--------------------------|');

      writeln('                    |        [n] ou [n]        |');

      writeln('                    |--------------------------|');

      repeat

              readln(k)

              until K in ['S','s' , 'N','n'];

              writeln;

              if K = 'S' then

      begin

          seek(fich1,filepos(fich1)-1);

          write(fich1,client);

      end;

      close(fich1);

  end;

end;

       

Alguem me pode dizer poque é k este procedur ta a dar erro??

E urgente a vossas ajuda é pa um trabalho de fim de modulo para apresentar amanha.. help me.. 🙂

[M6]

E qual é o erro que te dá?