В Delphi

[Nempak]

Всем привет!
Было задание:
Напишите пожалуйста программу на любом языке(желательно Си или Delphi)
К каждому слову в файле добавить через пробел слово перевод (через запрос к пользователю). Выходные данные: текстовый файл Taskname.txt каждая строка которого содержит только одно слово упорядоченное по алфавиту. Исходные данные: текстовый файл Taskname.txt содержит данные согласно заданию.
Я написал код на С++:

#include<stdio.h>
#include<string.h>
int main()
{
FILE *f; unsigned i=0,j,k,m;
char fin[20]="Taskname.txt",fon[20]="Taskname.txt",s[1000][2][20],t[20];
if(!(f=fopen(fin,"r")))
{printf("\nThe program can not find the file \n"); return 1;}
while(fscanf(f,"%s",s[i][0])!=EOF)
{printf("%s ? ",s[i][0]);scanf("%s",s[i][1]);i++;}
fclose(f);
for(j=1;j<i;j++)for(k=1;k<=i-j;k++)
if(strcmp(s[k][0],s[k-1][0])<0)
for(m=0;m<2;m++)
{strcpy(t,s[k-1][m]);
strcpy(s[k-1][m],s[k][m]);
strcpy(s[k][m],t);}
f=fopen(fon,"w");
for(j=0;j<i;j++)
fprintf(f,"%s %s\n",s[j][0],s[j][1]);
fclose(f); return 0;
}
Я сделать как консольную програму.
Но задание в том что эту программу нужно подключить к главной программе написанной на Delphi.
Переведите пожалуйста код на Delphi(Создайте Unit, просто код пусть делает, без ввода пользователя и вывода.) я Delphi не знаю так что пожалуйста помогите.