Переделайте программу из паскадя в делфи!!!

[kerosin96]

Очень вас прошу переделайте программу из паскаля в делфи вместе с формой!
Программа приводит возможность подсчета вероятности вступления до 2 вузов (v1 на четыре факультета, v2 на два факультета). Созданные массивы данных по двум вузам: по каждому факультета (по строкам) введены средний суммарный балл по ВНО для поступления и средний балл аттестата по данным предыдущих лет сайт vstup.info). Программа приведена для 2 факультетов одного вуза и для одного факультета второго вуза.Для других факультетов расчет выполняется аналогично. Необходимо программу расширить для нескольких вузов и выполнить ее в визуальной среде Delphi
Program vstup;
const v1:array[1..4,1..2] of integer=
((570,187),
(562,175),
(543,172),
(538,171));
v2:array[1..3,1..2] of integer=
((580,189),
(572,185),
(563,172));
var f,v,ukr,math,fiz,ang:byte;s,chans:r eal;
begin
writeln('введіть назву вузу?');
readln(v);
writeln('введіть назву факультету?');
readln(f);
case v of
1:case f of
1: begin writeln('орієнтовна оцінка з української мови?');
readln(ukr);
writeln('орієнтовна оцінка з математики?');
readln(math);
writeln('орієнтовна оцінка з фізики?');
readln(fiz);
s:=16.66*(ukr+math+fiz);
chans:=s/v1[f,1]*100;writeln('вірогідність вступу ',chans:5:1,'%');
writeln('необхідно мати бал атестату не менше',v1[f,2]);end;
2: begin writeln('орієнтовна оцінка з української мови?');
readln(ukr);
writeln('орієнтовна оцінка з математики?');
readln(math);
writeln('орієнтовна оцінка з фізики?');
readln(fiz);
s:=16.66*(ukr+math+fiz);
chans:=s/v1[f,1]*100;writeln('вірогідність вступу ',chans:5:1,'%');
writeln('необхідно мати бал атестату не менше',v1[f,2]);end;
3:begin end;
4:begin end;
end;

2:case f of
1: begin writeln('орієнтовна оцінка з української мови?');
readln(ukr);
writeln('орієнтовна оцінка з математики?');
readln(math);
writeln('орієнтовна оцінка з англійської мови?');
readln(ang);
s:=16.66*(ukr+math+ang);
chans:=s/v2[f,1]*100;writeln('вірогідність вступу ',chans:5:1,'%');
writeln('необхідно мати бал атестату не менше',v2[f,2]);end;

2:begin end;
3:begin end;
end;
end; end.