[Piligrim]

тебе же odd объяснил, что условие

and (u>38)

никогда не выполниться, потому что строкой ранее ты

u:=0;