ошибка в kol

[Luxoff]

пишу программку для самообучения. Коде перепроверил несколько раз - не вижу ошибок, но компилится не желает. выдает


(40,7) Fatal: Syntax error, ";" expected but "identifier KOLHUMAN" found


кусок кода

 const kolHuman = 25;
var
Person: array [1..kolHuman] of THuman;
i, kolperson: integer;
fname, sname: string;
begin
kolperson:=0;
for i:= 1 to kolHuman do
begin
if not GetName(fname, sname) then break;
Person[i]:= THuman.Create;
Person[i].SetData(fname, sname);
inc(kolperson);
end;

for i:= kolperson do
begin
writeln(UTF8ToConsole('Это '), person[i].GetData);
Person[i].free;
end;

буду признательность за помощь.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[New man]

for i:= 1 to kolperson do /// тут ошибка 1 to kolhuman
begin
writeln(UTF8ToConsole('Это '), person[i].GetData);
Person[i].free;
end;

[ReportCube]

Принципиальная ошибка в цикле:
for i:= kolperson downto 0 do
Всё остальное вне показанного Вами кода

[Luxoff]

всем спасибо! Собралось! Кроме ошибки с for i:= 1 to kolperson do забыл в end; в вышестоящем коде прописать.