01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / STR

 program str;
 var
    a,x:array [1..50] of string;  {¬ ббЁўл б«®ў Ё б«®ў  Ї ¬пвЁ}
    w:array [1..25] of integer;
        st,c,i:string;         {бва®Є }
    k,q,f,j,l:byte;
 begin
 writeln('ўўҐ¤ЁвҐ бва®Єг: ');
 readln(st);   {ўў®¤ бва®ЄЁ б Є« ўЁ вгал}
 k := 0;
 c := ' ' ;
 l := length(st);  {¤«Ё­  бва®ЄЁ}
  for f := 1 to l do
 if (st[f] <> ' ') then c := c + st[f]
  else begin
 k := k + 1 ; {бзҐвзЁЄ б«®ў}
 a[k] := c;   {§ ЇЁбм б«®ў  ў ¬ ббЁў б«®ў }
 c := ' ';
 end;

 for q:=1 to k do
 begin
 i:= a[q];
 w[q]:=0;
 for j:=1 to length(i) do
 if i[j] = 'a' then w[q]:=w[q]+1;    {Ї®¤бзҐв ЎгЄў }
 end;

 writeln('¬ ббЁў б«®ў ');

 for f:=1 to k do
 writeln(a[f]);

 writeln('‚ᥣ® ',k,' б«®ў ');

 for j:=1 to k do
 writeln('ў ',j,' б«®ўҐ ',w[j],' ЎгЄўл a ');
 readln;
 end.