обработка строкового текста

var s:string;
j:byte;
begin writeln('введите предложение');readln(s);
 
if s[Pos(' ',s)-1]='с' then
 delete(s,Pos(' ',s)-1,1);  
writeln(s);
end.

const x='b';
var
  s,s1,s2:string; j,i:integer;
  k:char;p:byte;
begin
 readln(s);s1:='';
 //проверим на лишние пробелы
    repeat              // Удаляем лишние пробелы
        p:=Pos('  ', s);  //на 2 пробела
        if p >0 then Delete(s, p, 1);
    until p =0;
    if s[1] = ' '       //Удаляем пробел в начале
        then Delete(s, 1, 1); 
    if s[Length(s)]= ' '//Удаляем пробел в конце строки
        then Delete(s, Length(s), 1);
 
 
 for i:=1 to (Pos(' ',s)) do
      begin
      s1:=s1+copy (s,i,1);//создаем слово
      end;
      writeln('получили слово=',s1);
  for i:=1 to (Pos(' ',s)) do
      begin
      delete(s,1,1);
      end;    
      writeln('осталось=',s);
      j:=length(s1); 
  if s1[(j-(j-1))]='a' then s1:=x+s1;
      writeln('изменение 1 буквы=>',s1);
  if s1[(j)]='c' then delete(s1,j,1);
      writeln('удаление буквы с =>',s1);
 
end.

program Project1;
 
const
  //Множество разделителей слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S : String;
  i, Len : Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    //Длина строки.
    Len := Length(S);
    //Перебор всех символов строки справа-налево.
    for i := Len downto 1 do begin
      //Пропускаем разделители.
      if S[i] in D then Continue;
      //Отслеживаем конец слова.
      if (i = Len) or (S[i + 1] in D) then begin
        //Удаляем последнюю букву, если она является буквой "С" или "с".
        if S[i] in ['С', 'с'] then Delete(S, i, 1);
      end;
      //Отслеживаем начало слова.
      if (i = 1) or (S[i - 1] in D) then begin
        //Добавляем букву "в", если первой буквой является буква "А" или "а".
        if S[i] in ['А', 'а'] then Insert('в', S, i);
      end;
    end;
 
    Writeln('Строка после обработки:');
    Writeln(S);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.