Program Percobaan erro ni heheh lucu kan...

hai sobat semua ini ada sedikit program yang aga unik sih tpi aq akan berbgi untuk kalian ni ada program yang buatnya erro jdi bgi kalian programer ini coba program yang aq ksih buat kalian ni....

Program coba_error; 

uses wincrt; 

var 

F : text; 

s : string; 

begin 

clrscr; 

write('Input file name to read : '); readln(s); 

assign(F,s); 

{$I-} 

reset(F); 

{$I+} 

if IOresult<>0 then 

begin 

writeln(‘terjadi kesalahan pada pembacaan file',s); 

halt; 

end; 

while not EOF(F) do 

begin 

readln(F,s); 

writeln(s); 

end; 

close(F); 

end.