подсчёт слов

[neBu4kaMaXiM]

Программа подсчёта слов в тексте ..путём сравнения двух рядом стоящих элементов..

Program podshet;
var
s:string;
chl,chr,kol:real;
begin
Writeln('zadaite stroky');
Readln(s);
kol:=0
chl:=1
chr:=Length(s)
for chl:=1 to Length(s)-1
for chr:=2 to Length(s)
if chl<>' ' and chr=' '
then
begin
kol:=kol+1
chl:=chr
chr:=chrl+1
else
if chl<>' ' and chr<>' '
then kol:=kol+1
else
if chl=' ' and chr=' '
then kol:=0
else
if chl=' ' and chr<>' '
then kol:=kol+1
end;
Writeln('kolishestvo slov=');
Readln(kol);
END.

строка 9 слово 1 ругается...помогите откомпилировать

[Grag]

Сообщение от neBu4kaMaXiM

Программа подсчёта слов в тексте ..путём сравнения двух рядом стоящих элементов..

Program podshet;
var
s:string;
chl,chr,kol:real;
begin
Writeln('zadaite stroky');
Readln(s);
kol:=0
chl:=1
chr:=Length(s)
for chl:=1 to Length(s)-1
for chr:=2 to Length(s)
if chl<>' ' and chr=' '
then
begin
kol:=kol+1
chl:=chr
chr:=chrl+1
else
if chl<>' ' and chr<>' '
then kol:=kol+1
else
if chl=' ' and chr=' '
then kol:=0
else
if chl=' ' and chr<>' '
then kol:=kol+1
end;
Writeln('kolishestvo slov=');
Readln(kol);
END.

строка 9 слово 1 ругается...помогите откомпилировать

А где у тебя точки с запятой после операторов???

[Google2010]

chl,chr,kol:real;

-
это как согласуется вот с этим>

if chl<>' ' and chr=' '

и вот с этим

for chl:=1 to Length(s)-1
for chr:=2 to Length(s)