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

#include <iostream>
using namespace std;

/* Язык С++.
 * Запрашиваем у пользователя неопределенное количество целых чисел
 * пока не введёт значение = 0
 * посчитать количество элементов введенных пользователем кратных 5,
 * а также вывести номер первого элемента, введенного пользователем значения = 5.
 * Ноль не учитывается (если 5 нет, то номер = 0)
 * Использовать do, while
 */
int main()
{
    int n, c5 = 0, i = 1, i5 = 0;
    bool found5 = false;
    do {
        cout << "Число: ";
        cin >> n;
        if (n == 0) break;
        else if (n % 5 == 0) {
            c5++;
            if (i5 == 0) {
                i5 = i;
            }
        }
        i++;
    } while (true);
    cout << "Количество чисел, кратных 5: " << c5 << endl;
    cout << "Номер первого элемента, кратного 5: " << i5 << endl;
    return 0;
}

// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!

function Geron(a,b,c:real):real;
// возвращает площадь треугольника со сторонами a,b,c
begin
  var p:=(a+b+c)/2; // полупериметр
  Result:=sqrt(p*(p-a)*(p-b)*(p-c))
end;

function Sp(ab,bc,ca,ad,bd,cd:real):real;
// возвращает площадь полной поверхности пирамиды
begin
  Result:=Geron(ab,bc,ca)+Geron(ab,ad,bd)+Geron(bc,bd,cd)+
      Geron(ca,cd,ad)
end;

procedure Vvod(var ab,bc,ca,ad,bd,cd:real);
// ввод значений ребер
begin
  Writeln('Введите значения ребер пирамиды');
  Write('Ребра основания- AB,BC,CA: '); Read(ab,bc,ca);
  Write('Боковые ребра- AD,BD,CD: '); Read(ad,bd,cd)
end;

begin
  var ab1,bc1,ca1,ad1,bd1,cd1:real;
  Vvod(ab1,bc1,ca1,ad1,bd1,cd1);
  var Sp1:=Sp(ab1,bc1,ca1,ad1,bd1,cd1);
  var ab2,bc2,ca2,ad2,bd2,cd2:real;
  Vvod(ab2,bc2,ca2,ad2,bd2,cd2);
  var Sp2:=Sp(ab2,bc2,ca2,ad2,bd2,cd2);
  var d:=Sp1-Sp2;
  if d>0 then Writeln('Площадь Sполн 1й пирамиды больше на ',d)
  else
    if d<0 then Writeln('Площадь Sполн 2й пирамиды больше на ',-d)
    else Writeln('Площади Sполн пирамид равны');
end.