Создать текстовый файл с целыми числами, никакой из компонентов файла не равен нулю / Pascal ABC

[Barsisback]

А. Создать текстовый файл, компоненты которого являются целыми числами и никакой из компонентов файла не равен нулю. Числа в файле должны быть расположены в следующем порядке: десять положительных, десять отрицательных, десять отрицательных и т.д.

Б. Переписать компоненты файлы f в файл g так, чтобы в файле g числа шли в следующем порядке: а) пять положительных, пять отрицательных, пять положительных, пять отрицательных и т.д.; б) двадцать положительных, двадцать отрицательных, двадцать положительных, двадцать отрицательных и т.д. (предполагается, что число компонент в файле f делится на 40). Записать в файл g наибольшее значение первых пяти компонентов файла f, затем - следующих пяти компонент и т.д. Если в последней группе окажется менее пяти компонент, то последняя компонента файла g должна быть равна наибольшей из компонента файла f, образующих последнюю (неполную) группу.