Evo Rješio sam na ovaj način(ovo je samo dio programa, tj.procedura za postojecu datoteku). Da, ništa posebno, jednostavan kod. Kadkad zna biti zeznuto sa ovim procedurama.
procedure postojecaDatoteka(var dl:slogovi);
var
ime:string[20];
begin
writeln('unesi ime postojece datoteke');
readln(ime);
assign(dl,ime);
(*$i-*)
reset(dl);
if Ioresult<>0 then begin
writeln('datoteka ne postoji ');
readln;
end;
(*$i+*)
end;