Free pascalban, hogyan kell arra utalni, hogy egy bizonyos fájlt megnyisson?

program Pelda09;

var f:text;

s:string;

begin

assign(f,'szoveg.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

readln(f,s);

writeln(s);

end;

close(f);

end.

itt pl egy txt file-t nyit meg és olvas be . még megnyithatna .dat file-t is. De pl egy .mp3 file-t nem fogsz majd olyan könnyen megnyitni.