помогите пожалуйста в Pascal
Задать строку, состоящую из 3-х случайно заданных символов «р», «о», «к», выводить её до тех пор, пока не выйдут слова: «рок», «орк», «кок»

только вывод строки не реализовал, не заметил в ТЗ. Сейчас допишу.

program rok_ork_kok;var x,y:integer; s:string; c1,c2,c3:char; begin writeln('начать выполнение? Жмите ENTER!'); readln; repeat randomize; x:=random(4); if x = 1 then c1:='р'; if x = 2 then c1:='о'; if x = 3 then c1:='к'; x:=random(4); if x = 1 then c2:='р'; if x = 2 then c2:='о'; if x = 3 then c2:='к'; x:=random(4); if x = 1 then c3:='р'; if x = 2 then c3:='о'; if x = 3 then c3:='к'; s:=c1+c2+c3; writeln(s); until (s='кок') or (s='рок') or (s='орк') ; writeln('получили слово '+s); end.

program rok_ork_kok;var x,y:integer;        s:string;        c1,c2,c3:char; begin writeln('начать выполнение? Жмите ENTER!'); readln; repeat randomize; x:=random(4); if x = 1 then c1:='р'; if x = 2 then c1:='о'; if x = 3 then c1:='к';  x:=random(4); if x = 1 then c2:='р'; if x = 2 then c2:='о'; if x = 3 then c2:='к';   x:=random(4); if x = 1 then c3:='р'; if x = 2 then c3:='о'; if x = 3 then c3:='к'; s:=c1+c2+c3; writeln(s); until (s='кок') or (s='рок') or (s='орк') ; writeln('получили слово '+s); end.

var i,k:integer;s,st:string[3];beginRandomize;st:='рок';s:='';repeat s:=''; for i:=1 to 3 do  begin  k:=random(3)+1;  s:=s+st[k];  end; writeln(s);until (s='рок')or(s='орк')or(s='кок');end.Пример:ккророкооркрорк