Бесконечнре число раз так как i всегда >0
Папка Рабочий стол является вершиной иерархической файловой системы
Begin
var a := ReadArrInteger('Первый массив: ',10);
var b := ReadArrInteger('Второй массив: ',10);
write('Наибольшее число в');
if a.Max > b.Max then write(' первом')
else write('о втором');
writeln(' массиве.');
end.