Написать подпрограмму поиска максимальной компоненты файла - Pascal ABC

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

Написать подпрограмму поиска максимальной компоненты файла. Для проверки подпрограммы создать драйвер, в котором выполнить ввод файла, дописать максимум в конец файла, вывести файл на печать.

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

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

type tfile=file of integer;
function max(f:tfile):integer;
var i,a,m:integer;
begin
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  if i=0 then m:=a
  else if a>m then m:=a;
 end;
max:=m;
end;
var f:tfile;
    a,i:integer;
begin
assign(f,'file');
rewrite(f);
randomize;
for i:=1 to 25 do
 begin
  a:=10+random(80);
  write(f,a);
 end;
writeln;
reset(f);
writeln('Содержание исходного файла');
while not eof(f) do
 begin
  read(f,a);
  write(a:3);
 end;
writeln;
writeln('Максимальная компонента=',max(f));
seek(f,filesize(f));
write(f,max(f));
writeln('Добавление максиального в конец файла');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:3);
 end;
close(f)
end.

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

В этом коде:

Объявлены типы данных: tfile - это файл, содержащий целые числа; a, i - это переменные для хранения целых чисел.
Определена функция max, которая находит максимальное значение в файле. Она использует цикл для чтения значений из файла и сравнивает каждое значение с текущим максимальным значением. Если текущее значение больше максимального, оно становится новым максимальным.
Создается переменная f типа tfile, которая представляет файл.
В цикле от 1 до 25 записываются случайные значения в файл.
Файл выводится на экран, чтобы показать его содержимое.
Находится максимальное значение в файле с помощью функции max.
Файл перемещается к концу, чтобы добавить максимальное значение в конец файла.
Файл снова выводится на экран, чтобы показать его обновленное содержимое.
Файл закрывается.