из СИ++ в Delphi

[venomdanger]

Нужна помощь! нужно адаптировать из СИ++ в Delphi

//метод строчн-столбовых перестановок
#include "stdafx.h"
#include <stdio.h>
#include <iostream.h>
#include <string.h>
#include <conio.h>

int main()
{
int a, height, col, count=0;
char *text, **mass;
cout <<"Enter text:\n";
gets(text);
a=strlen(text);
cout <<"Enter column height: ";
cin >> height;
col=a/height;
if(a/height)col++;
for(int i=0;i<height;i++)//записываем текст в матрицу
for(int ic=0;ic<col;ic++, count++)
mass[i][ic]=text[count];
count=0;
for(int i=0;i<col;i++)//перезапись из столбцов в строки
for(int ic=0;ic<height;ic++)
text[count]=mass[ic][i];
//закодировали, теперь надо как-то раскодировать)) гы.
//ключем явлется высота столбцов, при помощи
//ее можно узнать на которое количество делить то.
//а также переменная col

//cout <<"Enter two key: ";
//cin >> height>>col;

count=0;
for(int i=0;i<col;i++)
for(int ic=0;ic<height;ic++, count++)
mass[i][ic]=text[count++];
count=0;
for(int i=0;i<height;i++)
for(int ic=0;ic<col;ic++, count++)
text[count]=mass[i][ic];
_getch();
return 0;