function bukva(s: string; i, k: integer): integer;varn: integer;beginn := length(s);k := 0;for i := 1 to n doif (s[i] = 'а') thenk := k + 1;bukva := k;end;varx, y: string;beginif bukva(x) > bukva(y) thenwriteln('В первом слове букв "а" больше')elseif bukva(x) < bukva(y) thenwriteln('Во втором слове букв "а" больше')elsewriteln('Одинаковое кол-во букв');end. Пишет: "Неверное количество параметров процедуры". Что делать, скажите?