Задача на процедуры в Паскале

[WitaliG]

Здравствуйте!
Изучая Паскаль по книге «Песни о Паскале» я дошел до раздела «Процедуры». Автор написал процедуру Calc и предлагает читателям самим написать программу подсчитывающую количество символа А в строке.
Я что-то попытался написать, но вообще – «темный лес». Поэтому прошу помочь разобраться в этой программе, желательно с комментариями.
С уважением Виталий.

procedure Calc (const arg : string; Ch1 : char; var Res : integer);
var k : integer;
begin
        res :=0;
        for k := 1 to Length(arg) do
                if arg[k] = Ch1 then Res := Res + 1;
end;
var i,k : integer; S : string;
begin
        writeln('Введи строку: '); readln(S);
        Calc(Ch1);
        writeln('Количество букв À = ',Res);
        readln;
end.

[Mad_Cat]

Ты сравни параметры авторской процедуры и что ты сам в нее передаешь.

[k0tone]

Выглядеть должно подобно этому:

procedure Calc (arg:string; Ch1:char; var Res:integer);
 var
   k:integer;
 begin
   res:=0;
   for k:=1 to Length(arg) do
     if arg[k]=Ch1 then
     Res:=Res+1;
 end;


 var
   Res:integer;
   Ch1:char;
   S:string;
 begin
   writeln('Введи строку: '); readln(S);
   Ch1:='a';
   Calc(S,Ch1,Res);
   writeln('Количество букв A = ',Res);
   readln;
 end.

[WitaliG]

Спасибо k0tone, все хорошо работает.