Programmino in pascal :)

[PrincipianteDisperato]

Volevo creare un programma carino, una cosa che si cancellasse da sola in caso di sbaglio di una password... e ho creato questo:

program Pass;
uses crt;
Var pas:string;
count:real;
label proc1, inizio, errore, err;




begin
count:=1;


inizio:
begin;
writeln('inserisci password');
readln(pas);
if pas=('abc123') then
goto proc1;
if pas<>('abc123') then
if count<3 then
goto errore
else
goto err;
end;






errore:
begin;
count:=count+1;
Window(100,90,100,50);
clrscr;
writeln('ERRORE! IL TERZO ERRORE CAUSERA'' LA CANCELLAZIONE DI QUESTO FILE');
Sound(8000);
Delay(1000);
goto inizio;
end;






err:
begin;
{qui il programma dovrebbe aprire un altro .exe, che cancelli questo, non sono sicuro dei comandi seguenti}
exec('C:\Users\Lorenzo\Desktop\Pascal\trydel.exe', '');
delay(1000);
halt;
end;






proc1:
begin
delay(750);
writeln('Password corretta');
{semplice frase tanto per scrivere qualcosa, il cuore del programma è il cancellarsi tramite un altro .exe}
delay(750);
halt;
end;


end.



l'altro programma(trydel.exe) è invece questo:

program trydel;
uses crt,dos;
var f:file;


begin
assign(f,'C:\Users\Lorenzo\Desktop\Pascal\Pascal2\ Nuovo.exe');
erase(f);
writeln('1111');
delay(500);
end.



mi segna un runtime error, il 5 per la precisione.... come mai? dov'è lo sbaglio?
grazie a tutti in anticipo per l'aiuto