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

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadAllText('input.txt').ToIntegers.Where(t -> t > 0);

 if a.Count>0 then WriteAllText('output.txt', $'{a.Min} {a.Max}')

end.

Первое вложение - файл input.txt, второе - output.txt