В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.

Var i,k:integer;
s,st:string[3];
begin
Randomize;
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.

Пример:
ккр
оро
коо
ркр
орк