Viết chương trình nhập từ bàn phím một xâu S. In ra màn hình xâu sau khi đã chuẩn hoá

uses crt;

var s:string;

i,d,dem1,dem2,dem3,dem4:integer;

begin

clrscr;

write('Nhap xau s:'); readln(s);

d:=length(s);

dem1:=0;

dem2:=0;

dem3:=0;

dem4:=0;

for i:=1 to d do 

  begin

if st[i] in ['0'..'9'] then inc(dem1)

else if st[i] in ['a'..'z'] then inc(dem2)

else if st[i] in ['A'..'Z'] then inc(dem3)

else inc(dem4);

end;

writeln('So luong ky tu so la: ',dem1);

writeln('So luong ky tu thuong la: ',dem2);

writeln('So luong ky tu hoa la: ',dem3);

writeln('So luong ky tu dac biet la: ',dem4);

readln;

end.

uses crt;

var S : string; i : byte;

begin

clrscr;

write('Nhap xau S : '); readln(S);

i := 1; while i < length(S) do

    if (S[i] = ' ') and (S[i + 1] = ' ') then

        begin

            delete(S, i, 1);

            i := i;

        end

    else i := i + 1;

while S[1] = ' ' do delete(S, 1, 1);

while S[length(S)] = ' ' do delete(S, length(S), 1);

write('Xau chuan hoa : ', S);

readln

end.