Код
Uses windos;
var
a:text;
i:integer;
begin
i:=0;
repeat
i:=i+1;
if i=1 then begin
Assign(a,'C:/somefile.txt');
end;
if i=2 then begin
Assign(a,'D:/somefile.txt');
end;
rewrite(a);
write(a,'Sometext');
close(a);
until i=2;
end.
Если диска D нет, то TPascal7.0 пишет в черном окошке "runtime error...".
но Мне надо откомпилировать в Tpascal for windows, а там, после запуска exe, появляется маленькое окно с ошибкой. Как етого избежать?