Mi lehet a hiba ebben a pascal programban?

Tehát adott:

begin

randomize;

randomszam := random(3)+1;

if (randomszam=1) then

writeln('xy');

writeln(yx)

else

if (randomszam=2) then writeln('2')

else

if (randomszam=3) then writeln('3');

readkey;

end.

Az lenne a kérdésem, hogy mi lehet a hiba, mindig hibakóddal kidob. Világos, hogy ha else található, akkor az if-es sor végére nem kerül pontos vessző, de én egy if-es paranccsal több write-ot akarok csinálni egyszerre, akkor mi a teendő?