Люди Hellp!!! Помогите с задачей на Delphi

var
summa:real;
p:integer;
k:real;
 
begin
 
readln(summa);
k:=0;
while summa<1100 do
begin
summa:=summa+summa*(p/100); //если p задаётся в процентах
k:=k+1;
end;
 
writeln(summa);
writeln(k);
readln;
 
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  summa:real;
  p:integer;
  k:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
summa:=strtofloat(edit1.Text);
p:=strtoint(edit2.Text);
k:=0;
while summa<1100 do
begin
  summa:=summa+summa*(p/100); //åñëè p çàäà¸òñÿ â ïðîöåíòàõ
  k:=k+1;
end;
edit3.Text:=floattostr(summa);
edit4.text:=inttostr(k);
end;
 
end.