небольшой код переделать из паскаля в делфи

[alexanderrrr]

небольшой код переделать из паскаля в делфи(помогите, сижу на экзамене)
программу скидывать не надо, только код,тут на компах запрет стоит на скачивание

вот условие, если надо: вычислить последнюю сумму членов ряда,при которой разность между предыдущим и текущим членом остаётся больше 0,007.Кроме суммы выдать на экран значение последнего слагаемого и его номер. 1+1/4+1/12+1/32+1/80+...

вот сам код:

uses crt;
const
  e=0.007;
var
  k: Integer;
  p2: LongInt;
  y, yk, s: Real;
begin
  ClrScr;
  k:=1;
  p2:=1;
  yk:=1;
  s:=0;
  repeat
    s:=s+yk;
    y:=yk;
    Writeln(k*p2);
    Inc(k);
    p2:=p2 shl 1;
    yk:=1/(k*p2);
  until Abs(yk-y)<=e;
  Writeln('Сумма ряда s=', s:8:4);
  Writeln('Последнее слагаемое y=', y:8:4, '  (1/', (k-1)*p2 div 2, ')');
  Writeln('Номер последнего слагаемого к=', k-1);
  ReadKey;
end.

приложени для виндовс это

[Stilet]

uses crt; замени на:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

ReadKey; на Readln; убери ClrScr; и получай свой незачет.

[alexanderrrr]

это я знаю как делать, мне надо это все запихнуть в кнопку (вин эппликейшн) и чтоб выводило результат в лейбл, я с кодом никак не могу разобраться