program gg;
var i:array[1..25] of string;
    l,k,b:integer;
    s:string;
begin
i[1]:='g';i[2]:='n';i[3]:='m';i[4]:='z';i[5]:='8';[6]:='N';i[7]:='D';
i[8]:='F';i[9]:='L';i[10]:='3';

i[11]:='h';i[12]:='l';i[13]:='q';i[14]:='D';[15]:='2';i[16]:='3';i[17]:='4';
i[18]:='5';i[19]:='7';i[20]:='9';

i[21]:='T';i[22]:='P';i[23]:='O';[24]:='I';i[25]:='U';
var sc:=0;
s:='';
var scc:=0;
var llll:='';
l:=35;
//while 0=0 do begin
for var v:=1 to 5 do begin
 s:=s+i[random(25)+1];
end;
 s:=s+'.txt';scc:=scc+1;
 llll:=s;
var h := new System.IO.StreamWriter(s, false, System.Text.Encoding.ASCII);
s:='';
for var kk:=1 to 1000 do begin
{$omp parallel for}
 for b:=1 to l do begin
  s:=s+i[random(25)+1];
 end;
 sc:=sc+1;
 h.Write(s);h.Write(' // ');
 s:='';
end;
h.Close;
write('writen in file: ');write(s);write(' //',sc,'times');write('//',scc,'files');writeln(': ',llll);
//end;
end.