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 bằng thao tác ghép xâu rồi in ra màn hình

program Tin_hoc;

uses crt;

var i:integer;

      s1,s2:string;

begin

clrscr;

writeln('Nhap xau:');readln(s1);

s2:='';

for i:= 1 to length(s1) do if ord(s1[i]) <> 32 then s2:=s2+s1[i];

writeln('Xau da loai bo dau cach la:');writeln(s2);

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.