For g := 1 to 2 do что значит ожидался порядковый тип
счётчик цикла должен быть целым, т. е. integer!!