Как проверить занят ли файл другим процессом? - PascalABC.NET

Формулировка задачи:

Собсна вопрос описан в топике) Нужно узнать как можно осуществить проверку доступа к файлу, занял ли он другим процессом или нет. Если не занят то производить с ним операции. Опыт не очень большой, один курс, младшая компьютерная академия и немного сам)

Upd Или же подскажите как можно несколькими процессами использовать один файл одновременно.

Решение задачи: «Как проверить занят ли файл другим процессом?»

Листинг программы

var
    f: text;
begin
       Assign(f,'File.txt');
try
       Rename(f,'File2.txt');
       Writeln('Fajl ne zanjt');
except
         Writeln('Fajl zanjat');
end;
      Readln;
end.

Объяснение кода листинга программы

Объявлена переменная f типа text.
Присвоено значение 'File.txt'.
Выполняется попытка переименования файла.
Если переименование прошло успешно, выводится сообщение 'Fajl ne zanjt'.
Если переименование не удалось, выводится сообщение 'Fajl zanjat'.
Программа ожидает ввода пользователя.