Простецкая задача на паскале абц,но до меня не доходит((

[Nomack]

вот обычное действие на открытие файла, если вводимого файла не существует, должно быть повторение цикла, дапустим я ввел и файла не обнаружился, то мне должо быть предложено повторить задание имя файла y/n , вибираю y цикл повтаряется, n закрывается!))

var
begin

            writeln('Задайте имя файла');
            readln(filename);
            assign(f,filename);
            reset(f);


end;

[Gorychev]

Функция FSEARCH, читайте здесь http://pascal.kansoftware.ru/?id=gl5_5~1

[Somebody]

var
  filename: string;
  f: text;
begin
repeat
  writeln('Задайте имя файла: ');
  readln(filename);
  assign(f,filename);
  {$I-}
  reset(f);
  {$I+}
until ioresult = 0;
end.

[Nomack]

Пишит неизвестный индентификатор ioresult !!

И FSEARCH в паскале абц нет такого!)

[OCTAGRAM]

Это надо доки не по нормальному Паскалю смотреть, а по ABC. Так сходу не догадаешься, чего они там в ABC понагородили.

[Gorychev]

И FSEARCH в паскале абц нет такого!)

uses dos; // не забываем подключать
......
  if fsearch('bp.exe', '\bin') = '' then write('file not search');
.......

Проверял работает

[Nomack]

Вы точно на Pascale ABC проверяли?? если вам не трудно то напишити пажалуйсто полность эту программу с использованием этой функции

--------------------------------------------------------------------
мне предложили еще вариан но у меня F значения record и не совмещаеца с функцией FileExists. Што делать???


procedyre load;
var: f : file of .....
filenave : string;
flag : boolean;
begin
flag : = false ; while flag = false do begin
writeln ( ' Vvedite ima faila ' ) ;
readln ( filenave ) ;
assign ( f , filenave ) ;
flag : = FileExists (f) {!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!}
if flag = false then
writeln (' file с таким именем не существует ');
if flag = true then reset (f);
end;
end.