Работа со строковыми переменными.

var
  a: string;
  i: integer;
 
begin
  readln(a);
  a := ' ' + a;
  for i := length(a) downto 1 do
    if a[i] = ' ' then delete(a, i + 3, 1);
  writeln(a);
end.

procedure zamena(var s: string; S1, S2: string; var kolvo: integer);
var
  N, P: integer; x: string;
begin
  kolvo := 0;
  x := ''; n := length(s1);
  repeat
    p := pos(s1, s);
    if p <> 0 then begin
      inc(kolvo);
      x := x + copy(s, 1, p - 1) + s2; delete(s, 1, p + n - 1) end
  until p = 0; s := x + s;
end;
 
var
  s, Xi, Ai: string;
  k: integer;
 
begin
  write('Введите текст: ');
  readln(s);
  write('Введите слово которое надо заменить: ');
  readln(Xi);
  write('Введите слово которым надо заменить "', Xi, '": ');
  readln(Ai);
  
  writeln;writeln;
  writeln('Исходный текст: ', s);
  zamena(s, Xi, Ai, k);
  writeln('Преобразованный текст: ', s);
  writeln;
  writeln('Количество замен: ', k);
  
  
  readln;
end.

 var s:string;
 i:integer;
 t : set of char;
 
 begin
   t:=[',','.',' ','!','?'];
   write('Текст: '); readln(s);
   i:=1;
   while i<=length(s) do
   begin
     while s[i] in t do
     inc(i);
     delete(s,i+2,1);
     while not (s[i] in t) and (i<=length(s)) do
     inc(i);
   end;
   writeln(s);
 end.