Как создать список случайных слов?

var
  st: array [1..24] of string;
  n: integer;
 
begin
  for n := 1 to 24  do
  begin
    case n of
      1000: st[n] := 'одна тысяча';
    else
      begin
        st[n] := '';
        case n div 100 of
          1: st[n] := 'сто';
          2: st[n] := 'двести';
          3: st[n] := 'триста';
          4: st[n] := 'четыреста';
          5: st[n] := 'пятьсот';
          6: st[n] := 'шестьсот';
          7: st[n] := 'семьсот';
          8: st[n] := 'восемьсот';
          9: st[n] := 'девятьсот';
        end;
        case n mod 100 div 10 of
          2: st[n] := st[n] + ' двадцать';
          3: st[n] := st[n] + ' тридцать';
          4: st[n] := st[n] + ' сорок';
          5: st[n] := st[n] + ' пятьдесят';
          6: st[n] := st[n] + ' шестьдесят';
          7: st[n] := st[n] + ' семьдесят';
          8: st[n] := st[n] + ' восемьдесят';
          9: st[n] := st[n] + ' девяносто';
        end;
        case n mod 100 of
          10: st[n] := st[n] + ' десять';
          11: st[n] := st[n] + ' одиннадцать';
          12: st[n] := st[n] + ' двенадцать';
          13: st[n] := st[n] + ' тринадцать';
          14: st[n] := st[n] + ' четырнадцать';
          15: st[n] := st[n] + ' пятнадцать';
          16: st[n] := st[n] + ' шестнадцать';
          17: st[n] := st[n] + ' семнадцать';
          18: st[n] := st[n] + ' восемнадцать';
          19: st[n] := st[n] + ' девятнадцать';
        else
          case n mod 10 of
            1: st[n] := st[n] + ' один';
            2: st[n] := st[n] + ' два';
            3: st[n] := st[n] + ' три';
            4: st[n] := st[n] + ' четыре';
            5: st[n] := st[n] + ' пять';
            6: st[n] := st[n] + ' шесть';
            7: st[n] := st[n] + ' семь';
            8: st[n] := st[n] + ' восемь';
            9: st[n] := st[n] + ' девять';
          end;
        end;
      end;
    end;
    writeln(st[n]);
  end;
end.