Метод Цезаря. Файл с расширением .pas

[Александра1000000]

Люди, есть прога, которая делает блок-схемы. Она требует файл для конвертирования с расширением .pas. Я пользуюсь Borland Builder и там такие файлы не создаются. Помогите кто на Delphi горазд. Вот код:

#include <iostream>
#include <conio>

const int ABCSize = 26;

const char low_ch[] = {'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l',
 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z'};
const char high_ch[] = {'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L',
 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z'};

std::string cipher(const std::string &input_s, const int shift)
 {
 bool Ok;
 std::string output_s("");
 for(unsigned i = 0; i < input_s.length(); i++)
  {
  Ok = false;
  for(int j = 0; j < ABCSize; j++)
   {
   if (input_s[i] == low_ch[j])
    {
    j += shift;
    while (j >= ABCSize) j -= ABCSize;
    while (j < 0) j += ABCSize;
    output_s += low_ch[j];
    Ok = true;
    break;
    }
   else if (input_s[i] == high_ch[j])
    {
    j += shift;
    while (j >= ABCSize) j -= ABCSize;
    while (j < 0) j += ABCSize;
    output_s += high_ch[j];
    Ok = true;
    break;
    }
   }
  if (!Ok) output_s += input_s[i];
  }
 return output_s;
 }

int main()
{
std::string s;

std::cout << "If you want to cipher string, press \"1\", if you want to decode,"
 " press \"2\"";

bool Ok = false;
int shift = 0;
while(!Ok)
 {
 switch(getch())
  {
  case '1':
   {
   std::cout << "\nInput shift: ";
   std::cin >> shift;
   std::cout << "Input string to cipher: ";
   while (std::cin >> s)
    {
    std::cout << cipher(s, shift) << ' ';
    if (std::cin.get() == '\n') break;
    }
   Ok = true;
   } break;
  case '2':
   {
   bool Done = false;
   std::cout << "\nInput string to decode: ";
   getline(std::cin, s);
   for (int i = 0; i < ABCSize && !Done; i++)
    {
    std::cout << "\nWith shift equal " << i << " we have such string:\n";
    std::cout << cipher(s, i);
    std::cout << "\nIf decoding is done, press \"1\"";
    if (getch() == '1') Done = true;
    }
   Ok = true;
   } break;
  default: std::cout << "Press either \"1\" or \"2\"!";
  }
 }
getch();
}

или вот этот:

#include <vcl.h>
#pragma hdrstop
#include<iostream.h>
#include<string.h>
#include<conio.h>
//---------------------------------------------------------------------------

#pragma argsused
int main(int argc, char* argv[])
{        char a[50]={0};
         cout<< "will enter message: "<<endl;
         cin>>a;

         for(int i=0; i< strlen(a); i++ )
              a[i]+=3;
         cout<<a<<endl;

         cout<<"decode: "<<endl;
         for (int i=0; i<strlen(a); i++)
         a[i]-=3;
         cout<<a<<endl;

Все рабочее. Пожалуйста, дайте файл .pas