Составить программу устранения лишних пробелов в тексте. (Лишним будем считать каждый пробел, следующий непосредственно за пробелом.)

program р44;
  uses crt;
  var a: string;
      i:integer;
begin
  clrscr;
  write('Исходный текст а=');readlп(а) ;
  i:=1;
  repeat
    if copy(a,i,2)=' ' then
    a:=copy(a,1,i)+copy(a,i+2,length (a))
    else
    i:=i+1;
  until (i>length(a));
  writeln('a=',a);
  readln;
end.