[Alegun]

Кстати, ещё и в циклах крутится лишь одна строчка, а по коду видно что должны две - не хватает конструкций begin...end;