Паскаль. Динамические переменные

[McFrey]

Уважаемые программисты. Написал код, для программы, которая сравнивает содержимое двух текстовых файлов, обязательно с использованием динамических переменных. Программа работает, но если например указать путь к несуществующему файлу, то все слетает в тар-тарары. Подскажите как быть и что исправить. Я попытался это предусмотреть не безрезультатно...
Вот код:

program two_files;

uses
  DOS;

type
  tp = ^tr;
  tr = record
    I: string;
    P: tp;
  end;


var
  p1, p2: tp;
  f1, f2, q: text;
  a, b, check: boolean;
  inp_1, inp_2: string;

procedure inputtrace(var f: text; var FileName: string; var Exist: boolean);
var
  v: string;
  sup, code: integer;
begin
  repeat
    repeat
      writeln('Введите имя файла');
      readln(FileName)
    until(FileName <> '');
    begin
      assign(f, FileName);
      exist := true;
      {$i-}
      reset(F);
      {$i+}
      if ioresult <> 0 then
      begin
        writeln('Файл не найден ');
        repeat
          writeln('Нажмите клавишу 1 - выход из программы, 2 - повторить ввод имени файла*');
          readln(v);
          val(v, sup, code);
          if sup = 1 then exist := false;
          if sup = 2 then exist := true;
        until (sup = 1) or (sup = 2);
      end;
    end;
  until (ioresult = 0) or (exist = false);
end;


procedure formochered(FileName: string; var p1: tp; var f: text );
var
  t1, t2: tp;
begin
  new(t1);
  readln(f, t1^.I);
  t1^.p := nil;
  p1 := t1;
  while not eof(f) do
  begin
    new(t2);
    readln(f, t2^.I);
    t2^.p := nil;
    t1^.p := t2;
    t1 := t2;
  end;
  close(f);
end;



function sravnenie(p1, p2: tp ): boolean;
var
  s1, s2: tp;
  EqFiles: boolean;
begin
  EqFiles := true;
  s1 := p1; s2 := p2;
  
  while (s1 <> nil) and (s2 <> nil) do
  begin
    if s1^.I <> s2^.I then  EqFiles := false;
    s1 := s1^.p;
    s2 := s2^.p;
  end;
  if (s1 <> nil) xor (s2 <> nil) then EqFiles := false;
  sravnenie := EqFiles;
end;


procedure itogname(var F: text);
var
  S: PathStr;
  file_name: string;
  z, code: integer;
  qr: string;
begin
  repeat
    writeln('Введите имя для сохранения файла');
    readln(file_name);
    S := FSearch(file_name, '');
    if S <> '' then
    begin
      writeln('Файл с таким именем уже существует');
      repeat
        writeln('Нажмите 1 для нового имени или 2 для перезаписи в файл');
        readln(qr);
        val(qr, z, code);
      until (z = 1) or (z = 2);
      if z = 1 then file_name := '';
    end;
  until file_name <> '';
  assign(f, file_name);
  rewrite(f);
end;

begin
  inputtrace(f1, inp_1, a);
  if check then
    formochered(inp_1, p1, f1);
  inputtrace(f2, inp_2, b);
  if check then
    formochered(inp_2, p2, f2);
  itogname(q);
  if sravnenie(p1, p2) then writeln(q, 'Содержимое одинаково')
  else writeln(q, 'Содержимое различно');
  
  close(q);
  writeln('Результат сохранен в указанный вами файл');
  readln;
end.

[Rin]

if FileExists(fileName) then

[McFrey]

Rin...я пишу в BP а вы мне даете процедуру для pascal abc, тогда мне половину кода переделывать придется...

[Serge_Bliznykov]

Rin...я пишу в BP а вы мне даете процедуру для pascal abc, тогда мне половину кода переделывать придется...

а почему не хотите воспользоваться методом, которым Вы же пользуетесь в процедуре itogname ?!

   readln(file_name);
    S := FSearch(file_name, '');
    if S <> '' then
    begin
      writeln('Файл с таким именем уже существует');

[McFrey]

я понимаю что ошибка где-то в процедуре inputtrace...но как там использовать fsearch?

[Step_UA]

procedure inputtrace(var f: text; var FileName: string; var Exist: boolean);
var
  v: string; Err:boolean;
  sup, code: integer;
begin
  repeat
    repeat
      writeln('Введите имя файла');
      readln(FileName)
    until(FileName <> '');
    begin
      assign(f, FileName);
      exist := true;
      {$i-}
      reset(F);
      {$i+}
      Err:=IOResult<>0; 
      if Err then
      begin
        writeln('Файл не найден ');
        repeat
          writeln('Нажмите клавишу 1 - выход из программы, 2 - повторить ввод имени файла*');
          readln(v);
          val(v, sup, code);
          if sup = 1 then exist := false;
          if sup = 2 then exist := true;
        until (sup = 1) or (sup = 2);
      end;
    end;
  until not(Err) or (exist = false);
end;
...
Begin
  inputtrace(f1, inp_1, a);
  if a then
   begin
     inputtrace(f2, inp_2, b);
     if b then
      begin
       formochered(inp_1, p1, f1);
       formochered(inp_2, p2, f2);
       itogname(q);
       if sravnenie(p1, p2) then writeln(q, 'Содержимое одинаково')
        else writeln(q, 'Содержимое различно');
       close(q);
       writeln('Результат сохранен в указанный вами файл')
      end;
    end;
  readln
end.

[McFrey]

Step_UA, спасибо огромное выручили, а то я вчера таки бросился под fsearch переделывать и совсем запутался, блин немного прискорбно что сам не догадался...спасибо за показанный прием)

[Кольша]

если есть try except то можно с помощью них проверить,но если есть!

[Stilet]

В ВР по-моему обработка исключений еще не появилась.

[McFrey]

Кольша,Stilet...да, действительно в bp нету этого, но в любом случае теперь еще и такой метод знаю...спасибо еще раз)...больше знаешь-проще жить