процедуры на Pascal

[Cam_Wexler]

Лююди, прошу о помощи!!! я теряюсь в условии, просто не знаю как сделать эту задачку!!(( вообще ничего не понимаю. помогите студентке разобраться

Задание: Прочитать в одномерный строковый массив(строки по 80 символов, кол-во строк не более 50), текст составленной Паскаль-программы. Используя функцию, подсчитать количество операторов в тексте программы. Перед каждым "end" должен стоять символ ';'.
1)Составить процедуру подсчета и печати количества групп операторов(заключенных в скобки "begin ..end") в исходном массиве строк.
2)Составить функцию, возвращающую количество символов ';' в строке.

M<=50

[J.Bond]

2)Составить функцию, возвращающую количество символов ';' в строке.

function KK(s: string):integer;

var
n,i,k : integer;

begin
k:=0;
n:= lenght(s);
for i:=1 to n do
if s[i]=';' then
k:=k+1;
KK:=k;
end;

я извиняюсь за возможные ошибки