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.
Пишет: "Неверное количество параметров процедуры". Что делать, скажите?
