Написать на pascal нужен только исходный код

Программа:

Python:

arr = []

n = int(input('Количество учеников: '))

countMan, countWomen, sumMan, sumWomen = 0, 0, 0, 0

print(f'Введите рост {n} учеников')

for i in range(n):

   height = int(input())

   if abs(height) > 300 or abs(height) < 30:

       print('Введите правильные данные')

   else:

       if height < 0:

           countMan += 1

           sumMan += height

       else:

           countWomen += 1

           sumWomen += height

print(abs(int(sumMan/countMan)), int(sumWomen/countWomen))

Режимы открытия файлов Python:

Режим Обозначение

'r' открытие на чтение (является значением по умолчанию).

'w' открытие на запись, содержимое файла удаляется, если файла не существует, создается новый.

'x' открытие на запись, если файла не существует, иначе исключение.

'a' открытие на дозапись, информация добавляется в конец файла.

'b' открытие в двоичном режиме.

't' открытие в текстовом режиме (является значением по умолчанию).

'+' открытие на чтение и запись

Синтаксис:

>>> f = open('text.txt')

>>> f.read(1)

'H'

>>> f.read()

'ello world!\nThe end.\n\n'

>>> f = open('text.txt')

>>> for line in f:

...     line

...

'Hello world!\n'

'\n'

'The end.\n'

'\n'