Viết chương trình nhập vào từ bàn phím một xâu S có tối đa 100 kí tự a) Đưa ra màn hình xâu S đc viết theo thứ tự đảo ngược? b) hãy xoá các kí tự dấu cách có trong xâu S rồi đưa xâu S mới ra màn hình theo đúng thứ tự xâu S ban đầu nhập vào

uses crt;
var s:string; i:longint;
begin
 clrscr;
  write('nhap xau:');readln(s);
  writeln('cau a:');
  for i:=length(s)downto 1 do write(s[i]);
  writeln;
  writeln('cau b:');
  while s[1]=' 'do delete(s,1,1);
  while s[length(s)]=' ' do delete(s,length(s),1);
  for i:=1 to length(s) do
        begin
         while s[i]=' ' do delete(s,i,1);
        end;
  write(s);
 readln
end.

Bạn tham khảo chương trình: 

var S:string;

i:integer;

begin

writeln('Nhap vao mot xau S:');

readln(S);

if Length(S) > 100 then begin

writeln('So ki tu vuot qua gioi han. Vui long nhap lai!');

 exit;

end;

writeln('Xau S duoc viet theo thu tu dao nguoc:');

for i := Length(S) downto 1 do

write(S[i]);

writeln;

write('Xau moi sau khi loai bo dau cach: ');

for i :=1 to Length(S) do

if (S[i] <> ' ') then

write(S[i]);

end.