Школьная задача Делфи

[lesa11]

Помогите, пожалуйста, найти ошибку.
Перед началом наводнения уровень воды в реке составлял Н метров. Во время наводнения каждый час уровень воды рос на Р процентов от уровня за предыдущий часа. Каким будет уровень воды через N часов после начала наводнения? Через сколько часов после начала наводнения уровень воды будет не менее К метров?
Событие для Вutton1
procedure TForm1.Button1Click(Sender: TObject);
var h,k,n,a:integer; p:longint;
i:byte;
begin
h:=strtoint(Edit1.Text);
p:=strtoint(Edit2.Text);
n:=strtoint(Edit3.Text);
k:=strtoint(Edit4.Text);
a:=1;
p:=round(p/100);
For i:= 1 to n do
begin
p:=p*h;
a:=p+h;
end;
Label1.Caption:=floattostr(a);
end;

[Karan]

Тема перемещена из форума «Программирование» в форум «Карантин»
по следующим причинам:

- языки форума - русский и английский.
- не оформлен код.

Исправьте все Ваши ошибки и сообщите об этом в теме Сообщение в карантине исправлено.
Настоятельно рекомендуется ознакомиться с темами Что такое карантин и что нужно делать, чтобы там оказаться и Правила научного форума.