program symbol;
var i:longint;
    n:longint;
    tr:array[1..26] of 0..1000000;
    q:char;
begin
  for i:=1 to 26 do
    tr[i]:=0;
  for i:=1 to 1000000 do
    begin
      repeat
        q:=char(random(26)+97);
        n:=ord(q)-96;
        inc(tr[n]);
      until tr[n]<=40000;
      write(q);
    end;
end.

Terrible!
I don't think it's right,although it's very lucky.

var
  i:longint;
begin
  randomize;
  for i:=1 to 1000000do
    write(chr(random(26)+ord('a')));
  writeln;
  readln;
end.