Помогите решить задачку на паскаль: Даны n символов, нужно подсчитать сколько раз в строке встречается произвольный символ(вводится с клавиатуры)

[Grisai]

Формулируется так:
Даны n символов, нужно подсчитать сколько раз в строке встречается произвольный символ(вводится с клавиатуры), через процедуру.
Я написал такой код, знаю что не правильный.
Не понимаю в чем ошибки, помогите исправить

Program asgba;

var
   h :integer;
   ram :real;
   
procedure get(h :integer);

var
   s: array[1..100] of integer;
   ram :real;
   i, n :integer;
   
begin
   ram:=0;
   write('Введите количество символов: '); 
   readln(n); 
   for i := 1 to n do begin
      write('Введите символ №',i,': '); 
      readln(s[i]);
   end;
   write('Введите символ который хотите найти: ');
   readln(h);   

   for i := 1 to n do begin 
       if s[i] = h then
          ram := ram + 1;
   end;
end;
begin
   get(h);
   writeln('Количество символов ',h, '= ', ram);

end.

___________________________________ ____________________
1) Название темы не соответствует правилам форума
Название темы должно адекватно отражать суть решаемой задачи/проблемы!

2) Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)

Учтите это в следующий раз.

Модератор

[netpolice]

Учитесь качественно оформлять код.

Сообщение от Grisai

s: array[1..100] of integer;

Сообщение от Grisai

procedure get(h :integer);

Сообщение от Grisai

произвольный символ

А объявлено число

[Serge_Bliznykov]

Сообщение от Grisai

ram :real;

а ещё счётчик зачем-то вещественным объявлен!
не принципиально, конечно, но счётчик должен быть Integer

[Aleksandr H.]

[OFFTOP] Кажется, что тело процедуры сначала было кодом программы поиска количества чисел в массиве, потом учитель дал задание переделать с использованием процедуры. ТС получил задание на поиск символов в строке, нашел этот код, но посчитал, что если в программе поиска числа в массиве написать "write('Введите символ который хотите найти: ');", то может проканать.

[Serge_Bliznykov]

тоже проффтоплю чуток

Сообщение от Aleksandr H.

нашел этот код, но посчитал, что если в программе поиска числа в массиве написать "write('Введите символ который хотите найти: ');", то может проканать.

так хорошо, что искал, нашёл и попытался переделать.
Значит, процесс обучения идёт.
Хуже, когда сам ничего не делает и жалуется, что ничего не понимает.