Перевести данные с алгебраического языка на язык программирования Basic

ответы на BASIC, не надо на паскаль)

Program Ves;

Uses Crt;

var h,c,i,p:real;

begin

     clrscr;

     write('Введите ваш вес в килограммах:'); 

      readln(p);

     write('Введите ваш рост в сантиметрах:');

     readln(h);

     i:=h-105;

     c:=i-p 

     writeln('Ваш рост в сантиметрах=',h); 

     if   (c=0) then writeln('Ваш вес идеален'); 

   if (c>0) then writeln('Для достижения идеального веса надо сбросить ' , с , ' килограмм')

            else  writeln('Для достижения идеального веса надо набрать ' ,с , ' килограмм'); 

     readkey;

 end.

program raf105;

const

 n = 9;

var

 a,b1,b2:array[1..n] of integer;

 k,i,j,c1,c2:integer;

begin

write('Введите число k: ');

readln(k);

writeln('Заполните массив:');

for i:=1 to n do

 readln(a[i]);

for i:=1 to n do

begin

 if a[i] > k

   then begin

     c1:= c1 + 1;

     b1[c1]:= a[i];

   end;

 if a[i] < k

   then begin

     c2:= c2 + 1;

     b2[c2]:= a[i];

   end;

end;

for i:=1 to c1 do

 a[i]:=b1[i];

for i:=c1+1 to c2+c1 do

 a[i]:=b2[i-c1];

write('Вывод: ');

for i:=1 to n do

 write(a[i],' ');

end.