viết chương trình nhập vào 1 xâu, sau đó loại bỏ cách kí tự khoảng trắng rồi in ra màn hình

program baitap;

uses crt;

var S : string;

       i : byte;

begin

  clrscr;

  write ('Nhap xau :');

  readln ( S );

  for i := 1 to length( S ) do

         if ( S[i] <> ' ' ) and ( S[i + 1] = ' ' ) then delete ( S, i+1, 1 );

  write ( S );

  readln;

end.

Program oken;

uses crt;

var xau : string;

       i : longint;

begin

  clrscr;

  write ('Nhap vao 1 xau: '); readln (xau);

  for i:=1 to length(xau) do

         if (xau[i] <> ' ') and (xau[i + 1] = ' ') then delete(xau, i+1, 1);

  writeln(xau);

  readln;

end.