Free Pascal Program Repeat Until