Question

Помогите изменить код pascal
Нужно по другому записать функцию if или вообще переписать программу , но чтобы смысл был тот же
Заранее спасибо !
Сам код pascal : 
const
t=5.0;
cl=0.9;
var 
s:string;
a,i:byte;
begin
writeln('Введите ваше сообщение');
Readln(s);
For i:=1 to length(s) do
if (s[i]=' ') and (s[i+1]<>' ') then inc(a);
a:=a+1;
writeln('Количество слов - ', a);
begin
writeln('Стоимость телеграммы ',t+cl*a,' руб');
end;
end.

Answer 1

constt=5.0;
cl=0.9;
var 
s:string;
a,i:byte;
f:boolean;
begin
writeln('Введите ваше сообщение');
Readln(s);
a:=0;
i:=1;
while i<=length(s) do
begin
 while (i<=length(s)) and (s[i]=' ') do inc(i); 
 f:=(i<=length(s)) and (s[i]<>' '); 
 while f do
  begin
   inc(a);
   f:=false;
  end;
 while (i<=length(s)) and (s[i]<>' ') do inc(i);
end;
writeln('Количество слов - ', a);
writeln('Стоимость телеграммы ',t+cl*a,' руб');
end.