Массив: найти количество символов Ch в массиве С[i] - Free Pascal

Формулировка задачи:

нужны программы, помогите пожалуйста(массивы) 1. дано : A[i]-integer , [-100;100] B[i]-real,[0,1] найти C[i]= A[i]+B[i] 2. дано: N=10-const A[i]-real,random [-5;5] найти B[i]-округление A[i] 3. дано C[i]-char Ch-char найти: количество символов Ch в массиве С[i] заранее спасибо :0

Решение задачи: «Массив: найти количество символов Ch в массиве С[i]»

Листинг программы

const n=10;
var a:array[1..n] of integer;
     b,c:array[1..n] of real;
    i:integer;
begin
randomize;
writeln('Массив А');
for i:=1 to n do
 begin
  a[i]:=-100+random(201);
  write(a[i]:6);
 end;
writeln;
writeln('Массив B');
for i:=1 to n do
 begin
  b[i]:=random;
  write(b[i]:6:2);
 end;
writeln;
writeln('Массив C');
for i:=1 to n do
 begin
  c[i]:=a[i]+b[i];
  write(c[i]:6:2);
 end;
end.

Объяснение кода листинга программы

Объявляются три массива: a, b, c размером n.
Переменная i инициализируется значением 1.
Выполняется инициализация генератора случайных чисел.
Выводится сообщение Массив А и в цикле заполняется массив a случайными целыми числами от -100 до 200, которые выводятся на экран через 6 позиций.
Выводится сообщение Массив B и в цикле заполняется массив b случайными вещественными числами, которые выводятся на экран через 6 позиций с точностью до 2 знаков после запятой.
Выводится сообщение Массив C и в цикле заполняется массив c как сумма соответствующих элементов массивов a и b, которые выводятся на экран через 6 позиций с точностью до 2 знаков после запятой.