Ребята Паскаль!!
помогите
у меня паскаль abc пишу прогу, вот моя
program abc;
var
f: file of char;
c: char;
r: integer;
begin
assign (f, 'C:\Users\дети\Desktop\абв.txt');
{$I-}
reset (f);
{$I+}
r:= IOresult;
if r <> 0 then
writeln ('такого файла нет')
else
while not eof (f) do begin
read (f, c);
writeln (c);
end;
close (f);
readln
end.
я не знаю в чём проблема на распечатке написано (примеры) так а пишет типо неизвестное имя IOresult
помогите
у меня паскаль abc пишу прогу, вот моя
program abc;
var
f: file of char;
c: char;
r: integer;
begin
assign (f, 'C:\Users\дети\Desktop\абв.txt');
{$I-}
reset (f);
{$I+}
r:= IOresult;
if r <> 0 then
writeln ('такого файла нет')
else
while not eof (f) do begin
read (f, c);
writeln (c);
end;
close (f);
readln
end.
я не знаю в чём проблема на распечатке написано (примеры) так а пишет типо неизвестное имя IOresult