чутка доделать

[BBorr1]

program wtfazs;
uses crt;
var st:string;
k,l,i:integer;
begin
writeln('Vvedite prdlojenie');
readln(st);
for i:=1 to l do
begin
if (st[i]=' ') or (st[i]=', ') or(st[i]=', ') then
k:
end;
writeln('kollichestvo bukv v stroke' ,k);
readln;
end.

короче нужно что бы при вводе предложения, считались только символы кроме точки, пробела, и запятой! Помогите доделать

[Кольша]

program wtfazs;
uses crt;
var st:string;
k,l,i:integer;
begin
writeln('Vvedite prdlojenie');
readln(st);
for i:=1 to l do
begin
if not st[i] in [' ',', ','.','. '] then
k:
end;
writeln('kollichestvo bukv v stroke' ,k);
readln;
end.

[skyll]

Держи:

program prg;
uses crt;
var
   text: string;
   i, sum: integer;
begin
     sum := 0;
     writeln('Text: ');
     readln(text);
     for i := 1 to length(text) do
         if (text[i] <> ' ') or (text[i] <> ',') or (text[i] <> '.') then
            inc(sum);
     write('Count: ', sum);
end.