Помогите найти ошибку в DElphi7

Задача: В массиве хранятся сведения о количестве осадков (в мм) , выпадавших ежедневно в сентябре. Составьте программу, которая подсчитывает количество дождливых дней (h>0)
Компоненты: label,memo,button, ВВОЖУ ДАННЫЕ В EDIT НАЖИМАЮ НА КНОПКУ ОТВЕТ АБСОЛЮТНО ДРУГОЙ.. .
КОД:
procedure TForm1.Button1Click(Sender: TObject);
var
h:array[1..1000] of integer;
i,f:integer;
begin
for i:=1 to 30 do
begin
memo1.Text:=inttostr(f);
if h>0 then f:=f+1;
end;
label1.Caption:=Inttostr(f);
end;
end.
ПОмогите.. Спасибо...