Удалить пробелы, стоящие между первым вторым словами, а также между двумя последними словами - Pascal

var
  s:string;
  i,j,k:integer;
begin
  repeat
    write('введите строку:');readln(s);
  until s<>'';
  i:=1;
  while (s[i]=' ')and (i<length(s)) do i:=i+1;{пропуск лидирующих пробелов}
  for k:=i to length(s) do 
    if s[k]=' ' then begin
      while (s[k]=' ') and (k<length(s)) do delete(s,k,1);
      break;
    end;
  j:=length(s);
  while (s[j]=' ') and (j>1) do j:=j-1; {пропуск финишных пробелов} 
  k:=j;
  repeat
    if (k>1) and (s[k]=' ') and (k<length(s)) then begin 
      while (s[k]=' ') and (k>1) do begin delete(s,k,1);k:=k-1;end;
      break;
    end;  
    k:=k-1;
  until k<=i;  
  writeln('Полученная строка: "',s,'"');
end.