Троки и символы!

[Korun]

=================================== =====
var sd,sk,d,i:integer;
s,s1:string;
BEGIN

writeln('Vvedite stroky!');
readln(s);
sd:=0;
sk:=length(s);
s1:='';
for i:=1 to Length(s) do
if (s[i]=' ')or(i=length(s))then
begin
if s1<>''then
begin
d:=length(s1);
if d>sd then sd:=d;
if d<sk then sk:=d;
s1:='';
end;
end else s1:=s1+s[i];
writeln('Dlina samogo bolshogo slova: ',sd);
writeln('Dlina samogo malenkogo slova: ',sk);
readln;
END.
=================================== =======
Нужно добавить условие чтобы чтобы при вводе каких-либо символов или знаков препинания он их не считал за слова, и выводил сообщение о том что это не слово!