текст Опции

[KatushkA]

Гении Паскаля, помогите пожалуста!!! Не могу найти ошибку в задаче...
выводит программа результат..но странный....я ввожу 3 слова, а она считает характеристику 19-ого, потом 25-ого...а всего-то нужно посчитать кол-во одинаковых символов в каждом слове....HELP! в чем ошибка???
вот текст модуля:

Код

UNIT  modul;
INTERFACE
  VAR
stroka: string;
max: integer;
i,k: integer;
Procedure obr_ka (k,i,max:integer);
IMPLEMENTATION
 Procedure obr_ka;
BEGIN
 Writeln ('Введите предложение, заканчивающееся точкой ');
Readln (stroka);
max:=0;
i:=1;
k:=0;
While stroka [i]<> '.' do
begin
if stroka [i]<> ' ' then
if stroka[i]=stroka [i+1] then inc (k)
else
  if k>max then begin
  max:=k;
 Writeln (' Характеристика ',i, '-го слова: ',k);
  k:=0;
  end;
  inc (i);
  end;
end;
END.

а вот основной программмы

Код

Program  zadacha_2;
Uses crt, modul;
Var
i,k,max:integer;
stroka: string;
Begin
clrscr;
obr_ka(k,i,max);
readln;
End.

:molitva: