Процедура определения самого длинного слова в строке

uses crt;
const rz=[' ','.',',',';',':','?','!'];{разделители слов, можно изменить}
procedure slovo(s:string;var sd:string);
var s1:string;
    len,i,max:byte;
begin
for i:=1 to length(s) do{заменим разделители на запятые}
if s[i] in rz then s[i]:=',';
s:=s+',';{добавим к ней запятую}
while pos(',,',s)>0 do{удалим лишние запятые}
delete(s,pos(',,',s),1);
if s[1]=','then delete(s,1,1);{если первая запятая, удаляем}
sd:=''; {искомое длинное слово}
max:=0;
while pos(',',s)>0 do{пока есть запятые}
 begin
  len:=pos(',',s)-1;{длина очередного слова}
  s1:=copy(s,1,len);{само слово}
  if len>max then{если больше предыдущих}
   begin
    sd:=s1; {запомним}
    max:=len; {его длина}
   end;
  delete(s,1,pos(',',s));{удаляем проверенное слово, следующее первое}
 end;
writeln('Самое длинное слово:  ',sd);
end;
 
var s,sd:string;
begin
clrscr;
writeln('Введите строку из слов, отделенных разделителями:');
readln(s);
slovo(s,sd);
readln
end.