Настроение сейчас - like in matrix

Program BEGUNOK_2;
Uses CRT, GRAPH;
Var O, K, F, BE, H, UK, U, I, V : integer;
Var SW : Array [1 . . max] of integer;
Var WCL : Array [1 . . max] of integer;
Begin
  O := Oksa;
  K := Kaktus;
  F := Friend;
  BE := British Embassy;
  H := home;
  UK := United Kingdom;
  U := university;
  I := Ilze;
  V := visa;
  WCL [1 . . max] := World Carp Latvia;
  SW [1 . . max] := spiritual world;
  Repeat
    O goto U; {to enter the university and study in a high school}
    O goto WCL; {to know more about summer program}
    O goto I; {to teach a girl english}
    O goto BE; {for applying a visa to UK}
    O goto WCL; {for other occupation}
    O goto H; {for some hours try to relax}
  Until O=SW;
  If O has got free time then
    O goto K;
    O goto F;
  Else O goto WCL;
{but unfortunately O has not free time...}
  If V goto O then
    O goto UK;
  Else O goto H;
  If O goto U {no tuition fee} then
    O goto UK;
  Else O goto H;
{but O wants goto UK...} 
Readln;
End.