Question

Помогите разобраться! Я не понимаю, что здесь не так...
var i, k, num: real;
begin
for: i := 0 to 99 do num[i+1] := i+1;
k := 0;
i := 1;
while k < 7 do begin
if easy(num[i]) = true
then k := k + 1;
i := i + 2;
end;
write(num[i-2]);
end.