ddoss pascal

uses graphabc;
var
  s,x : string;
procedure creater;
var
  i,kek : integer;
begin
  for i:=1 to 20 do
    begin
    kek:=random(62)+1;
    s:=s+x[kek];
    end;
end;
begin
  x:='1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM'; //91
  while 1=1 do
    begin
        creater;
        SaveWindow(s);
      s:='';
    end;
  writeln(length(x));
end.