Составить программу, которая считает количество букв "а" в заданном слове.в паскаль.

Var s: string; k,i: integer; begin write('введите слово: ');   readln(s); k: =0; for i: =1 to length(s) do if s[i]='a' then k: =k+1; writeln('в слове ',s,' буква а встречается ',k,' раз'); end.

Const n=10; var a: array[1..n]of integer; i,k: integer; begin     for i: =1 to n do         begin             a[i]: =random(100)-50;             write(a[i]: 4);                   if a[i]< 0 then                       k: =k+1;           end; writeln; writeln(k); end.    

1) const n=10; var a: array[1..n]of integer; i: integer; begin     for i: =1 to n do           read(a[i]); writeln;     for i: =1 to n do           write(a[i]: 4); end. 2) var a: array[1..1000]of real; i,n: integer; begin   writeln('n ? ');   readln(n);     for i: =1 to n do         begin           writeln('input  ',i,' элемент');           readln(a[i]);         end; writeln;     for i: =1 to n do           write(a[i]: 4: 2); end. 3) var a: array[1..1000]of real; i,n: integer; begin   writeln('n ? ');   readln(n);     for i: =1 to n do         begin           a[i]: =random;           write(a[i]: 4: 2);           end; writeln; end.