Перевести с языка Си на Delphi

[Ermowkin]

Уважаемые программисты прошу помоши перевести с языка Си на Delphi данный код. Сам в Си просто не шарю.

/* константы для клавиатуры */
#define REV_VID 0x70
#define NORM_VID 0x7
#define TRUE 1
#define FALSE 0
#define ESC 27
void Opros1(void), zapsost(void), Opros2(void), Vyv(void), tabl(int k);
void Verx(void), Menu(void), Sost(void), tablar(int k),  tablkis(int k);
void tchens(void), zapis(), tablaz(int k);
void draw_bar(int startx,int starty,int endx,int endy);
void display_menu(char *menu[],int x,int y,int count);
void write_video(int x,int y,char *p,int attrib), goto_xy(int x,int y);
int is_in(char *s,char c), impinit(unsigned char *pollp);
int get_resp(int x,int y,int count,char *menu[],char *keys);
unsigned char hex_to_dec(unsigned char hex_value);
void sel_page(unsigned page), s_net_power(int loop);
int imptx(unsigned imp,unsigned char *command,unsigned count);
int imptest(unsigned *impp,unsigned *streamp);
int impnumeric(unsigned imp,unsigned stream, unsigned count);
/* объявление глобальных переменных*/
char *Bak="РЦВ";
char *Bak1="ГХК";
unsigned im1=(unsigned)1;
unsigned im2=(unsigned)2;
unsigned st=(unsigned)0;
char string[25];
int x1=30,y1=50,x2=100,y2=200,year,mon,day,hour,houro,min,sec,kolwo=0,flag=0;
unsigned char far    *snet_addr = (unsigned char far *)0xd0000000l;
double Bufer[24][30]; /* указатель на буфер для вводимых/выводимых данных*/
/*double Bufer[24][24];*/
double Bufrab[18];

[Ermowkin]

По идеи мне подсказали получилось следующие:

procedure Opros1;
procedure zapsost;
procedure Opros2;
procedure Vyv;
procedure tabl(k: integer);
procedure Verx;
procedure Menu;
procedure Sost;
procedure tablar(k: integer);
procedure tablkis(k: integer);
procedure tchens;
procedure zapis;
procedure tablaz(k: integer);
procedure draw_bar(startx,starty,endx,endy: integer);
procedure display_menu(menu: PChar; x,y,count: integer);
procedure write_video(x,y: integer; p: PChar; attrib: integer);
procedure goto_xy(x,y: integer);
function is_in(s: Pchar; c: Char): integer;
procedure impinit(pollp: PChar);
function get_resp(x,y,count: integer; menu,keys: PChar): integer;
function hex_to_dec(hex_value: char): char;
procedure sel_page(page: integer);
procedure s_net_power(loop: integer);
function imptx(imp: integer; command: Pchar; count: integer): integer;
function imptest(impp,streamp: integer): integer;
function impnumeric(imp,stream,count: integer): integer;

const
 REV_VID  = $70;
 NORM_VID = $07;
 TRUE = 1;
 FALSE = 0;
 ESC  = 27;
 Bak: PChar = 'РЦВ';
 Bak1: PChar = 'ГХК';
 im1: integer = 1;
 im2: integer = 2;
 st: integer = 0;
 x1: integer = 30;
 y1: integer = 50;
 x2: integer = 100;
 y2: integer = 200;
 year: integer = 0;
 mon: integer = 0; 
>>  18:29:49:  
 day: integer = 0;
 hour: integer = 0;
 houro: integer = 0;
 min: integer = 0;
 sec: integer = 0;
 kolwo: integer = 0;
 flag: integer = 0;

 // на счет этого не уверен
 snet_addr: int64 = 55834574849;
 Bufer: double = 30;
 Bufrab: double = 24;