1) viết chương trình liệt kê các từ của một xâu ký tự được nhập từ bàn phím, mỗi từ phải được viết trên 1 dòng. 

program bai_giai;
uses crt;
var s:string;i:longint;
begin
 clrscr;
  write('nhap xau:');readln(s);
  for i:=1 to length(s) do if(s[i]=' ')then writeln else write(s[i]);
 readln;
end.

2) viết chương trình xóa các ký tự chữ số trong 1 xâu ký tự được nhập vào từ bàn phím. 

program bai_giai;
uses crt;
var s:string;i:longint;
begin
 clrscr;
  write('nhap xau:');readln(s);
  for i:=1 to length(s) do if(s[i] in ['0'..'9']) then delete(s,i,1);
  write(s);
 readln;
end.

3) viết chương trình xóa các ký tự trống trong xâu

program bai_giai;
uses crt;
var s:string;i:longint;
begin
 clrscr;
  write('nhap xau:');readln(s);
  for i:=1 to length(s) do if(s[i]=' ') then delete(s,i,1);
  write(s);
 readln;
end.

B1:

uses crt;

var a:string;

      i:integer;

begin

write('nhap a:');readln(a);

for i:=1 to lenght(a) do writeln(a[i]);

readln;

end.

B2:

uses crt;

var a:string;

      i:integer;

      n:array[0..9] of integer;

begin

write('nhap a:');readln(a);

for i:=1 to lenght(a) do

begin

if a[i]=n then delete(a,i,1);

end;

writeln(a);

readln;

end,

B3:

uses crt;

var a:string;

      i:integer;

begin

write('nhap a:');readln(a);

for i:=1 to lenght(s) do if a[i]=' ' then delete(a,i,1);

writeln(a);

readln;

end.