Переделать программу под множества?

uses crt;
const zn=['.','?','!','...'];{символы конца предложения}
      zn1=['.','?','!',',',';',':'];{все знаки препинания, можно добавить всякие скобки}
var s,s1,s2,s3:string;
    i,len,max:byte;
begin
clrscr;
writeln('Vvedite text:');
readln(s);
s3:=s; {запомним строку}
max:=0;{максимальная длина предложения}
len:=0;{длина очередного предложения}
s1:='';s2:='';
i:=1;
while i<=length(s) do
  begin
   if s[i] in zn then{если конец предложения}
     begin
      s1:=copy(s,1,i);{запоминеам его}
      len:=i-1;{его длина без последнего знака}
      delete(s,1,i);{удаляем его}
      if len>max then{если длина больше предыдущего макс}
        begin
          max:=len;{это макс}
          s2:=s1;{запоминаем предложение}
        end;
      i:=i+1;{к следующему символу}
     end
   else i:=i+1;{если не конец предложения, то просто к следующему}
  end;
writeln(s2);{выводим предложение}
for i:=1 to length(s3) do
if s[i] in zn1 then s[i]:=' ';{заменяем все знаки препинания на пробелы}
s3:=s3+' ' ;{пробел в конец}
while pos('  ',s3)>0 do{пока 2 пробела подряд}
delete(s3,pos('  ',s3),1);{1 удаляем}
max:=0;s1:='';s2:='';len:=0;{обнуляем длину и все почти также с этой строкой}
while pos(' ',s3)>0 do
  begin
    s1:=copy(s3,1,pos(' ',s3)-1);
    len:=length(s1);
    delete(s3,1,pos(' ',s3));
    if len>max then
      begin
        max:=len;
        s2:=s1;
      end;
  end;
write(s2);{выводим слово}
readln
end.