Mam jeszcze jedną prośbę, mógłbyś mi wytłumaczyć jak to działa? Chodzi mi dokładnie o te linijkę:
if upcase(imie[Length(imie)]) = 'A'
To sprawdza ostatnią literkę czy jak? Bo funkcja length podaje nam ilośc znaków w łańcuchu, to wiem, i nie kminie jak działa ta linijka if upcase(imie[Length(imie)]) = 'A'