function    Randomizw:string;

var

    ok:array[0..2] of byte;

    sp:char;

begin

    ok[0] :=random(72)+176;

    ok[1] :=random(94)+161;

    ok[2] :=0;

    sp :=@ok;

    Result :=string(sp);

end;