Работа с файлами (Pascal)

[MrVamp]

Найти количество слов, число букв в которых равно количеству предыдущих слов, конец ввода F2.

Заранее спасибо.

[Arigato]

В чем проблема-то?

[MrVamp]

над программу написать по этой задаче =\

[Arigato]

Там и в чем проблема-то? То, что программу надо написать, это понятно. А что вы от нас хотите - не ясно...

[MrVamp]

посмотрите что не так

program ghg;
var s:string;cw:integer;pwc:integer;wg:integer;i:integer;
begin
readln(s);
wg:=1;
cw:=0;
pwc:=0;
s:=s+' ';
for i:=1 to length(s) do begin
if (s=' ') or (s=',') or (s='.') then begin
if (i>wg) then begin
if pwc=(i-wg) then begin
cw:=cw+1;
end;
end;
pwc:=pwc+1;
wg:=i+1;
end;
end;
writeln(cw);
end.

[Arigato]

Пока вы свой код в порядок не приведете, не хочу смотреть...

[MrVamp]

знать бы как =\

[Arigato]

Хотя бы отступы расставьте как надо: http://ru.wikipedia.org/wiki/%D0%A1%...BF%D0%BE%D0%B2