Ошибка с типом String

Program n28;
var s:string;
    i,a,b,c,n:integer;
begin
readln(s);
for i:=1 to length(s) do begin
                         c:=0;
                         if (s[i]=' ') or (s[i]='.') then begin
                                                          writeln(i);
                                                          c:=a-1;
                                                          b:=b+2;
                                                          delete(s,b,c);
                                                          writeln(s);
                                                          a:=0;
                                                          end else a:=a+1;
                         end;
end.

program Project1;
 
const
  {Множество разделителей слов.}
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S : String;
  Da : set of Char;
  i : Integer;
begin
  repeat
    {Ввод исходного текста.}
    Writeln('Задайте текст:');
    Readln(S);
 
    {Решение.}
    Writeln('Результат:');
    Da := []; {Множество букв, из которых состоит очередное слово в тексте.}
    for i := 1 to Length(S) do
      if S[i] in D then {Если текущий символ является разделителем.}
      begin
        Da := [];    {Обнуляем множество букв слова.}
        Write(S[i]); {Распечатываем символ.}
      end
      else {Если текущий символ принадлежит слову.}
      begin
        {Если символ в пределах текущего слова ранее не встречался, то распечатываем его.}
        if not (S[i] in Da) then
          Write(S[i]);
        {Добавляем символ во множество Da (это множество букв текущего слова).}
        Da := Da + [S[i]];
      end;
    Writeln;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.