Random от a до z

[Sauber]

Как срандомить буквы латинского алфавита? Заранее спасибо!
P.S. Delphi

[Serge_Bliznykov]

хоть Дельфи, хоть паскаль..

randomize;
SluchayanaBukva := chr (Random( ord('z')-ord('a')+1 ) + ord('a') );

[evg_m]

универсальное решение для любого алфавита.

var alf: string;
var s: string;
randomize;
alf: ='abcdef...z';// lдолжен быть заполнен весь  от a до z.
for j:=1 to 30 do
  s:=s + alf[1 + random(length(alf)];

[Sauber]

спасибо, я тоже думал с множеством сделать

[Serge_Bliznykov]

Сообщение от Sauber

спасибо, я тоже думал с множеством сделать

Вы не поверите, но в варианте evg_m множества не используются.
Это решение с использованием строки.