function bukva(s: string; i, k: integer): integer;
var
n: integer;
begin
n := length(s);
k := 0;
for i := 1 to n do
if (s[i] = 'а') then
k := k + 1;
bukva := k;
end;

var
x, y: string;

begin
if bukva(x) > bukva(y) then
writeln('В первом слове букв "а" больше')
else
if bukva(x) < bukva(y) then
writeln('Во втором слове букв "а" больше')
else
writeln('Одинаковое кол-во букв');
end.


Пишет: "Неверное количество параметров процедуры". Что делать, скажите?