На сколько зарплата самого высокооплачиваемого сотрудника отличается от самого низкооплачиваемого? - Pascal ABC

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

В отделе работают 3 сотрудника, которые получают заработную плату в рублях. Требуется определить: на сколько зарплата самого высокооплачиваемого из них отличается от самого низкооплачиваемого. Входные данные: В единственной строке входного файла INPUT.TXT записаны размеры зарплат всех сотрудников через пробел. Каждая заработная плата - это натуральное число, не превышающее 100000. Выходные данные: В выходной файл OUTPUT.TXT необходимо вывести одно целое число - разницу между максимальной и минимальной зарплатой. Пример входного файла (input.txt): 100 500 1000 Пример выходного файла (output.txt): 900

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

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

var
max,min,a,b,c:integer;
f1,f2:text;
Begin
Assign(f1,'input.txt');
Assign(f2,'output.txt');
Reset(f1);
Rewrite(f2);
Read(f1,a,b,c);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
write(f2,max-min);
Close(f1);
Close(f2);
End.

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

Объявляются переменные max, min, a, b, c типа integer.
Объявляются переменные f1 и f2 типа text.
Устанавливаются имена файлов для f1 и f2 соответственно 'input.txt' и 'output.txt'.
Сбрасывается буфер f1.
Перезаписывается буфер f2.
Читается содержимое из f1 в переменные a, b, c.
Переменная max устанавливается равной a.
Если b больше max, то max устанавливается равным b.
Если c больше max, то max устанавливается равным c.
Переменная min устанавливается равной a.
Если b меньше min, то min устанавливается равным b.
Если c меньше min, то min устанавливается равным c.
Выводится разница между max и min в буфер f2.
Закрываются файлы f1 и f2.