Readln и writeln read и write что из них функция, а что процедура !

Функция это то что возвращает результат.  y=f(x)
Процедура просто выполняется ничего не возвращает print(s)

да самом деле это все процедуры
Readln и writeln
Read и wrесли
если мы говорим о старом паскале

Если говорить о PascalABC
то a:=Read('a=') уже функция, соответственно и ReadLn

Язык в задании не указан, значит опишу алгоритм.

Объявим переменные нужные, обязательно обнулим переменную count(все переменные целочисленные)

1. Организация заполнения двумерного массива.(Из файла, руками, в исходном коде, как угодно)
2. Первый цикл от 0 до i(кол-во строк массива)
3. Внутри первого цикла еще один цикл от 0 до j(кол-во столбцов)
4. Внутри второго цикла делаем проверку вида
if (mass[i,j] == X) then
   count = count + 1
5. Теперь когда все итерации будут пройдены, переменная count будет содержать значение равное кол-во элементов со значением X
6. Делаем вывод это значения.

7. Вы восхитительны!

Uses  crt;
var  item, rub, doll: real; 
  job: integer;
begin   
writeln('Введите курс ру по отношению к дол: '); 
read(item);//Вводим курс рубль-доллар 
writeln('Перевести из (рубля в доллар(2)) или (доллар в рубль(1))?'); 
read(job);//Вводим режим 
case job of
  2:      begin       
writeln('Введите кол-во рублей: ');       
 read(rub);//Вводим рубль       
 rub := rub / item;       
writeln('doll = ',rub);
end;
1:      begin       
writeln('Введите кол- во долларов: ');       
read(doll);//Вводим доллар       
doll := doll * item;       
 writeln('rub = ',doll);
end;
 end;    
 end.