[semiono]

Ура! Кажись работает как надо! Только end ещё один не хватало...
i: Integer;
st : String;