Из кода паскаля в код делфи

[Morgann]

Здравствуйте всем. Мне нужна помощь переделать код паскаля в код делфи. Если бы самому переделывать пришлось то делал бы я это очень и очень долго
Помогите пожалуйста.

Интерфейс беседующей программы такой примерно будет такой но красивее:

http://s017.radikal.ru/i404/1201/f8/ab04935453f4.jpg

Код паскаля вот такой

Program Nura;
uses crt;
var a,b,c1,c2,c3,c4,c5,c6,c7,c8,c9,c10, c11,c12,c13,c14,c15,c16,c17,c18,c19 ,c20,c21:longint;
var d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11, d12,d13,d14,d15,d16,d17,d18,d19,d20 ,d21:longint;
begin
writeln('Vvedite Uroven,kotorogo hotite dostignut');
readln(a);
writeln('vvedite Vash Tekuchiy Oput');
readln(b);
c1:=200;
c2:=900;
c3:=2000;
c4:=4000;
c5:=8000;
c6:=16000;
c7:=32000;
c8:=64000;
c9:=128000;
c10:=256000;
c11:=512000;
c12:=1024000;
c13:=2048000;
c14:=4096000;
c15:=8192000;
c16:=16384000;
c17:=32768000;
c18:=65536000;
c19:=131072000;
c20:=262144000;
c21:=524288000;
d1:=c1-b;
d2:=c2-b;
d3:=c3-b;
d4:=c4-b;
d5:=c5-b;
d6:=c6-b;
d7:=c7-b;
d8:=c8-b;
d9:=c9-b;
d10:=c10-b;
d11:=c11-b;
d12:=c12-b;
d13:=c13-b;
d14:=c14-b;
d15:=c15-b;
d16:=c16-b;
d17:=c17-b;
d18:=c18-b;
d19:=c19-b;
d20:=c20-b;
d21:=c21-b;
if a=1 then writeln('Vam ostalos',' ',d1,' ','opyta do',' ',a,' ','levela');
if a=2 then writeln('Vam ostalos',' ',d2,' ','opyta do',' ',a,' ','levela');
if a=3 then writeln('Vam ostalos',' ',d3,' ','opyta do',' ',a,' ','levela');
if a=4 then writeln('Vam ostalos',' ',d4,' ','opyta do',' ',a,' ','levela');
if a=5 then writeln('Vam ostalos',' ',d5,' ','opyta do',' ',a,' ','levela');
if a=6 then writeln('Vam ostalos',' ',d6,' ','opyta do',' ',a,' ','levela');
if a=7 then writeln('Vam ostalos',' ',d7,' ','opyta do',' ',a,' ','levela');
if a=8 then writeln('Vam ostalos',' ',d8,' ','opyta do',' ',a,' ','levela');
if a=9 then writeln('Vam ostalos',' ',d9,' ','opyta do',' ',a,' ','levela');
if a=10 then writeln('Vam ostalos',' ',d10,' ','opyta do',' ',a,' ','levela');
if a=11 then writeln('Vam ostalos',' ',d11,' ','opyta do',' ',a,' ','levela');
if a=12 then writeln('Vam ostalos',' ',d12,' ','opyta do',' ',a,' ','levela');
if a=13 then writeln('Vam ostalos',' ',d13,' ','opyta do',' ',a,' ','levela');
if a=14 then writeln('Vam ostalos',' ',d14,' ','opyta do',' ',a,' ','levela');
if a=15 then writeln('Vam ostalos',' ',d15,' ','opyta do',' ',a,' ','levela');
if a=16 then writeln('Vam ostalos',' ',d16,' ','opyta do',' ',a,' ','levela');
if a=17 then writeln('Vam ostalos',' ',d17,' ','opyta do',' ',a,' ','levela');
if a=18 then writeln('Vam ostalos',' ',d18,' ','opyta do',' ',a,' ','levela');
if a=19 then writeln('Vam ostalos',' ',d19,' ','opyta do',' ',a,' ','levela');
if a=20 then writeln('Vam ostalos',' ',d20,' ','opyta do',' ',a,' ','levela');
if a=21 then writeln('Vam ostalos',' ',d21,' ','opyta do',' ',a,' ','levela');
writeln('Spasibo! Uspexa vam!');
readkey;
end.

Edit1 должен быть "a"
Edit2 "b"

а после нажатие на кнопку в едит3 пишет "if a=1 then writeln('Vam ostalos',' ',d1,'" и т.д до d21 тольео без "вам осталось" просто пишет число

если что-то не понятно в моей просьбе, пишите, может как-то поподробней опишу

[rUs_LAN]

Я бы не советовал вам переделывать программу по этому коду. На самом деле ее (программу) можно записать намного короче и более гибко используя такие средства как массивы и циклы
По интерфейсу: если вы не планируете чтобы пользователь мог поменять надпись целесообразнее использовать элемент label.
c3 - 21

2*2 * 100
2*3 * 100
2*4 * 100
и т.д.