написать программу на языке паскаль

Сайт не дает загрузить текст программы даже текстовым файлом, поэтому вставляю картинкой.

Программа должна запускаться с единственным аргументом, определяющем режим работы: encrypt (зашифрование) или decrypt (расшифрование). Если аргумент не указан, по умолчанию используется зашифрование.

Ключом шифрования является целое число из диапазона [1; 100]. При зашифровании ключ генерируется автоматически, используя стандартный генератор случайных чисел. При расшифровании ключ вводится с клавиатуры.

Шифртекст представляет собой последовательность целых чисел, разделенных пробелом. Рассматривать шифртекст в виде последовательности символов неудобно, потому что часть символов являются непечатными. Можно сказать, что входной и выходной алфавиты шифра замены различаются (в задании ограничений на это не увидел).

Пример работы программы в режиме зашифрования:

% python3 cipher.py encrypt

Running in encryption mode

Plaintext: Щёткин Сергей Викторович

Key: 41

Ciphertext: 1106 1146 1131 1123 1121 1126 73 1098 1118 1129 1116 1118 1122 73 1083 1121 1123 1131 1127 1129 1127 1115 1121 1136

Пример работы программы в режиме расшифрования:

% python3 cipher.py decrypt

Running in decryption mode

Ciphertext: 1106 1146 1131 1123 1121 1126 73 1098 1118 1129 1116 1118 1122 73 1083 1121 1123 1131 1127 1129 1127 1115 1121 1136

Key: 41

Plaintext: Щёткин Сергей Викторович

1.

def func(x,y,xc,yc,r):

   return (x - xc)**2+ (y - yc)**2 <= r**2

x=float(input())

y=float(input())

xc=float(input())

yc=float(input())

r=float(input())  

if func(x, y, xc, yc, r):

   print("YES")

else:

   print("NO")

2.

with open("input.txt") as f:

   massiv=list(map(int,f.read().split("\n")))

with open("output.txt","w") as f:

   for i in massiv:

       if i==3:

           f.write("win\n")

       elif i==1:

           f.write("draw\n")

       elif i==0:

           f.write("lose\n")

3.

with open("input.txt") as f:

   massiv=list(map(int,f.read().split("\n")))

with open("output.txt","w") as f:

   if massiv[0]>massiv[1]:

       f.write("Alexander is the eldes.")

   elif massiv[0]<massiv[1]:

       f.write("Tatyana is the eldest.")

   else:

       f.write("Nobody is the eldest.")

4.

with open("input.txt") as f:

   massiv=list(map(float,f.read().split("\n")))

with open("output.txt","w") as f:

   for i in massiv:

       if i<=0:

           f.write("ice\n")

       elif i>=100:

           f.write("water vapor\n")

       else:

           f.write("water\n")

5.

with open("input.txt") as f:

  massiv=list(map(int,f.read().split("\n")))

with open("output.txt", "w") as f:

  for i in range(0,len(massiv), 2):

      if massiv[i]/massiv[i+1]<=1:

          f.write("Traffic rules are executed. \n")

      else:

          f.write("Traffic rules are not met. \n")