Вывести целую часть самого большого числа в обратном порядке цифр в новый файл. - Pascal ABC

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

в файле хранятся действительные числа.вывести целую часть самого большого числа. в обратном порядке цифр в новый файл.

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

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

var f:text;
    a,max:real;
    i:integer;
    s:string;
begin
assign(f,'input.txt');
reset(f);
read(f,max);
while not seekeof(f) do
 begin
  read(f,a);
  if a>max then max:=a;
 end;
close(f);
s:=inttostr(trunc(max));
assign(f,'output.txt');
rewrite(f);
for i:=length(s) downto 1 do
write(f,s[i]);
close(f);
writeln('Файл input.txt прочитан и результат записан в файл output.txt')
end.

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

В начале кода объявляются переменные: f - тип text, a, max - тип real, i - тип integer, s - тип string.
Затем происходит чтение файла input.txt в переменную max.
Далее идет цикл while, который выполняется до тех пор, пока не достигнут конец файла. Внутри цикла происходит чтение файла input.txt в переменную a и сравнение ее с переменной max. Если a больше max, то max обновляется значением a.
После окончания цикла файл input.txt закрывается.
Значение max преобразуется в строку с помощью функции inttostr и сохраняется в переменной s.
Затем открывается файл output.txt, создается новый файл для записи.
В файл output.txt записываются символы из строки s в обратном порядке.
Файл output.txt закрывается.
Выводится сообщение о завершении работы программы.