ANTICHAT — форум по информационной безопасности, OSINT и технологиям

const
  n = 20; {maks dlina slova}

var
 kolvo: array[1..n] of integer;
 slovo, stroka: string;
 i, m, c: integer;
 f: text;

begin
 for i := 1 to n do
 begin
  assign(f, 'c:\in.txt');
  reset(f);
  while not eof(f) do
  begin
   readln(f, stroka);
   slovo := '';
   for m := 1 to length(stroka) do
   begin
    if stroka[m] in [',',' '] then {v kvdratnih skobkah cherez zapyatuyu perechislit' vse razdeliteli slov.kazhdiy razdelitel' v kavichkah razdelitel'}
    begin
     if length(slovo) > 0 then
     begin
      kolvo[length(slovo)] := kolvo[length(slovo)] + 1;
      slovo := '';
     end
     else slovo := slovo + stroka[m];
    end;
    if length(slovo) > 0 then kolvo[length(slovo)] := kolvo[length(slovo)] + 1;
   end;
  end;
  close(f);
 end;
 assign(f, 'c:\out.txt');
 rewrite(f);
 for c := 1 to n do
 writeln(f, 'slov iz', c, 'bukv:', kolvo[c]);
 close(f);
 readln;
 end.

<ICQMagBase version="0.1b">
	<number>
		<uin>***</uin>
		<pass>***</pass>
		<pm/>
		<pmpass/>
		<qa/>
		<kind>2</kind>
		<len>9</len>
		<numcount>*</numcount>
		<numlist>***</numlist>
		<i>no</i>
		<price>0</price>
		<adddate>***</adddate>
		<chdate>***</chdate>
		<state>0</state>
	</number>
	<number>
		<uin>***</uin>
		<pass>***</pass>
		<pm/>
		<pmpass/>
		<qa/>
		<kind>2</kind>
		<len>9</len>
		<numcount>*</numcount>
		<numlist>***</numlist>
		<i>no</i>
		<price>0</price>
		<adddate>***</adddate>
		<chdate>***</chdate>
		<state>0</state>
	</number>
</ICQMagBase>