Ezt hogyan :S? (plz)

Azt hiszem sikerült megértenem jópár átolvasás után, rég Pascaloztam, de megpróbálom

Program veletlen;

uses crt; {randomhoz}

var string a,b;

i:integer;

begin {kezdődik a program}

randomize();

write('Írjon be egy dolgot: '); Readln(a);

write('Írjon be egy másik dolgot: '); Readln(b);

i:=random(2);

if i=0 than

writeln('dolog ',a);

else

writeln('dolog: ',b);

end.

Mond a fordítási hibákat, nekem most nincs fenn Pascal, nem tudom kipróbálni.

if i=0 than

Ebben a sorban then akart lenni e-val! Csak mellégépelés :D

Uhhh te egy " zseni "

hát elsönek nem igazán jöttem volna rá mit szeretne.