Помогите разобраться! Я не понимаю, что здесь не так ...

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.

var

i, k: real;

num:array[1 ... 100] of integer;

begin

for: i : = 1 to 99 do

num[i] : = i;

k : = 0;

i : = 1;

while k < 7 do

begin

if easy (num[i])

then

k : = k + 1;

i : = i + 2;

end;

write (num[i-2]) ;

end.

Немного разобрал бред, но программа бессмысленная и проверка (if easy (num[i])) мне не понятна, что это за процедура easy?

Что за массив без его описания, автор разберись с кодом, поучи синтаксис Паскаля.