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

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.

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

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.