нужно исправить программу!

[Anna_S2dent]

program Text;
uses crt;
var a:string;
n,i:integer;
begin clrscr;
n:=0;
write ('Vvedit deyakiy text: ');
read(a);
for i:=1 to length(a) do
begin
if a='+' then n:=n+1;
end;
write ('V zhomy teksti ',n,' znakiv +');
end.

НУЖНО ЧТОБЫ СИМВОЛ + СЧИТАЛО ТОЛЬКО ДО ТОЧКИ В ТЕКСТЕ.

[Anna_S2dent]

program Text;
uses crt;
var a:string;
n,i:integer;
begin clrscr;
n:=0;
write ('Vvedit deyakiy text: ');
read(a);
i:=1;
while a[i]<>'.' do
begin
if a[i]='+' then n:=n+1;
i:=i+1;
end;
write ('V zhomy teksti ',n,' znakiv +');
end.

Этот вариант не хочет работать(

[fbus]

если нужно узнать длину строки то должен работать(точно не помню, в Object pascal точно работает)
length(s) где s - строка, а результат который возвращает функция - целое число которое является длиной строки S

[Anna_S2dent]

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

если нужно узнать длину строки то должен работать(точно не помню, в Object pascal точно работает)
length(s) где s - строка, а результат который возвращает функция - целое число которое является длиной строки S

Нужно написать программу подсчета знаков "+" в строке до знака "."(точка).

[GetMax]

var a:string;
n,i:integer;
begin
n:=0;
write ('Vvedit deyakiy text: ');
readln(a);
for i:=1 to length(a) do
begin
if a[i]='+' then n:=n+1
Else
If a[i] = '.' then Break //если дошли до точки, то выходим из цикла
end;
writeln ('V zhomy teksti ',n,' znakiv +');

[Anna_S2dent]

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

var a:string;
n,i:integer;
begin
n:=0;
write ('Vvedit deyakiy text: ');
readln(a);
for i:=1 to length(a) do
begin
if a[i]='+' then n:=n+1
Else
If a[i] = '.' then Break //если дошли до точки, то выходим из цикла
end;
writeln ('V zhomy teksti ',n,' znakiv +');

Спасибо огромнейшее) а не подскажите какая программа из листинга сделает блок-схему?

[Multiman]

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

Спасибо огромнейшее) а не подскажите какая программа из листинга сделает блок-схему?

FCEditor..

[Anna_S2dent]

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

FCEditor..

А где можно скачать?