Нахождение наибольшего общего делителя четырех натуральных чисел - Pascal ABC

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

((( С использованием файлов ))) (1)Составить программу для нахождения наибольшего общего делителя четырех натуральных чисел. ((( С использованием модуля (unit) ))) (2)Написать программу, которая вычисляет частное от деления двух чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные (делитель равен нулю), выдавать сообщение об ошибке.

эт к (1 задаче)Есть сама задача, но я не знаю как сделать: с использованием файла!!!!!!!!!

uses crt;
var a,b,c,d:word;
function NOD(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n else n:=n-m;
NOD:=m;
end;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
write('d=');readln(d);
writeln;
writeln('NOD(a,b,c,d)=',NOD(NOD(a,b),NOD(c,d)));
readln
end.

Решение задачи: «Нахождение наибольшего общего делителя четырех натуральных чисел»

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

uses crt;
var a,b,c,d:word;
f: text;
function NOD(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n else n:=n-m;
NOD:=m;
end;
begin
assign(f, 'f.txt'); 
reset (f); 
read(f,a); 
read(f,b); 
read(f,c); 
read(f,d);
 
begin
clrscr;
 
writeln('NOD(a,b,c,d)=',NOD(NOD(a,b),NOD(c,d)));
readln
end;
end.

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

Этот код написан на языке Pascal ABC и выполняет следующие действия:

Объявляет переменные a, b, c и d типа word, что означает, что они могут содержать только целочисленные значения.
Использует функцию NOD(m,n : integer), которая находит наибольший общий делитель (НОД) двух чисел. Эта функция использует алгоритм быстрого возведения в степень, который позволяет быстро вычислять НОД для больших чисел.
Чтение четырех чисел из файла f.txt с помощью функции read(f, a), read(f, b), read(f, c) и read(f, d).
Вызов функции NOD(a, b) для нахождения НОД чисел a и b.
Вызов функции NOD(NOD(a, b), c) для нахождения НОД чисел a, b и c.
Вызов функции NOD(NOD(a, b), NOD(c, d)) для нахождения НОД чисел a, b, c и d.
Очистка экрана с помощью функции clrscr.
Ввод строки с помощью функции readln.
Вывод результата на экран с помощью функции writeln. В общем, этот код находит НОД четырех натуральных чисел и выводит его на экран.