Разработать программу которая подсчитает количество разделительных знаков в тексте — Pascal(Паскаль)

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;
end;
writeln(probel,' ',zapt,' ',to4ka);
end.

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.
writeln(num);
end.