برنامه ... ؟

برنامه ای که یک رشته گرفته و کلیه فاصله های خالی آن را حذف می کند .

var s:string; i:integer;

begin

  writeln('  enter string : ');

  readln(s);

    for i:=1 to length(s)do

     begin

       while s[i]=' 'do

          IF S[I]=' ' then delete(s,i,1);

     end;

  write(s);

end.