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

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.