Написать программу на языке Паскаль. Получить из слова "Каблучок" три любых слова

Program gg;
const  s = Каблучок;
var  i, k, n: integer;
begin    for i := 1 to 3 do  begin    n := random(4) + 1;    for k := 1 to n do    begin      write(s[random(6) + 1]);     end;    writeln;  end;end.