Ввести с клавиатуры не больше 20 символов и посчитать сколько раз ввести букву а

//pascal abc.net v3.0 сборка 1111 const   n=30;   type   tys=array[1..n] of string; var   ars: tys;   i,j: integer;   s: string;   procedure sorts(var ars: tys; n1: integer); var   i,j: integer;   c: string; begin   for i: =1 to n1-1 do   for j: =i to n1 do     if ars[i]> ars[j] then     begin       c: =ars[i];       ars[i]: =ars[j];       ars[j]: =c;     end; end;     begin   readln(s);   j: =1;   while pos(' ',s)< > 0 do   begin     for i: =1 to pos(' ',s) do     ars[j]: =ars[j]+s[i];     delete(s,1,pos(' ',s));     inc(j);   end;   ars[j]: =s;   sorts(ars,j+1);   writeln('result=');   for i: =1 to n do  writeln(ars[i]); end. пример ввода: панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм паскаль тетрадь разум пример вывода: панамка  параллелепипед  паскаль  паста  пена  пенал  пинать  подражатель  полиморфизм    разумтетрадь  явный 

1)

a)  (x = y) и (y = z)

б) ((x = y) и (y ! = z))   или ((x = z) и (z ! = y)) или ((y = z) и (z ! = x))

! = - "не равно"

в) (x > 0) и (y > 0) и (z > 0)

г)  ((x > 0) и (y > 0) и (z < 0)) или  ((x > 0) и (y < 0) и (z > 0)) или  ((x < 0) и (y > 0) и (z > 0))

(x*y*z> 0) и (x< 0 или y< 0 или z< 0)

д) (x < y) и (y < z)

2)

а)  (x = y) and (y = z)

б)  ((x = y) and (y < > z))   or ((x = z) and (z < > y)) or ((y = z) and (z < > x))

в)  (x > 0) and (y > 0) and (z > 0)

г)  ((x > 0) and (y > 0) and (z < 0)) or  ((x > 0) and (y < 0) and (z > 0)) or  ((x < 0) and (y > 0) and (z > 0))

(x*y*z > 0) and ((x < 0) or (y < 0) or (z < 0))

д)  (x < y) and (y < z)