Viết trương trình nhập vào xâu bất kỳ từ bàn phím. In ra màn hình xâu thu được từ nó sau khi loại bỏ khoảng cách nếu có

Xâu: Là một dãy kí tự trong bảng mã ASCII. Mỗi kí tự được gọi là một phần tử của xâu.

   - Số lượng kí tự trong xâu được gọi là độ dài của xâu .

   - Xâu có độ dài bằng 0 gọi là xâu rỗng.

   - Tham chiếu tới phần tử trong xâu được xác định thông qua chỉ số của phần tử trong xâu.

uses crt;
var s:string;
      i:integer;
begin
clrscr;
writeln('Nhap vao 1 chuoi bat ki: ');
readln(s);
for i:= 1 to length(s) do
      if s[i] = ' ' then delete(s,pos(' ',s),1);
writeln(s);
readln;
end.