Робота с строками. POS()Copy()DELETE()

[XxXSuperXxX]

Разработать программу которая подсчитает количество разделительных знаков в тексте.
Заранее спасибо!!!

[Sparkman]

пос, копи, делит в обяз юзать?

[XxXSuperXxX]

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

пос, копи, делит в обяз юзать?

Нет, не обязательно)

[artem611]

Если я правильно понимаю, то под разделительными знаками подразумевается .точка, пробел, запятая. Если да, то тогда как то так

var i,probel,zapt,to4ka:integer;
     s:string;
begin
probel:=0;
zapt:=0;
to4ka:=0;
readln(s);
for i:=1 to length(s) do 
begin
if (s[i]=' ') then probel:=pr+1 else if (s[i]= '.') then to4ka:=to4ka+1 else if (s[i] = ',') then zapt:=zapt+1;

Если же под разделением понимать любой символ кроме букв, тогда

var i,j,num:integer;
     s,ALPH:string;
begin
num:=0;
ALPH:='abcdefghijklmnopqrstuuvwxyz';
readln(s);
for i:=1 to length(s) do
 for j:=1 to length(ALPH) do 
 if (s[i]<>s[j]) then num:=num+1;
end.

[XxXSuperXxX]

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

Если я правильно понимаю, то под разделительными знаками подразумевается .точка, пробел, запятая. Если да, то тогда как то так

var i,probel,zapt,to4ka:integer;
     s:string;
begin
probel:=0;
zapt:=0;
to4ka:=0;
readln(s);
for i:=1 to length(s) do 
begin
if (s[i]=' ') then probel:=pr+1 else if (s[i]= '.') then to4ka:=to4ka+1 else if (s[i] = ',') then zapt:=zapt+1;

Если же под разделением понимать любой символ кроме букв, тогда

var i,j,num:integer;
     s,ALPH:string;
begin
num:=0;
ALPH:='abcdefghijklmnopqrstuuvwxyz';
readln(s);
for i:=1 to length(s) do
 for j:=1 to length(ALPH) do 
 if (s[i]<>s[j]) then num:=num+1;
end.

Спасибо!