giúp mình bài pascal nay với(cần ngay)

[phuong_kute92]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viết chương trình nhập vào 1 xâu bất kì đưa ra màn hình xâu mở tìm yêu cầu
+, giữa 2 từ có đúng 1 dấu cách
+, kí tự đầu tiên của mỗi từ là chữ in hoa

 

[pk_ngocanh]

bạn xem bài này có được không ( được làm bởi storm5906)

PROGRAM Bai_tap;
USES    CRT;
Var     s0,s:string;
        i:integer;
BEGIN
        Clrscr;
        Write('Nhap xau a : '); Readln(s0);
        s:=s0;
        While s[1]=' ' do s:=copy(s,2,length(s)-1);
        While s[length(s)]=' ' do s:=copy(s,1,length(s)-1);
        i:=0;
        While i<length(s)-1 do
                Begin
                        i:=i+1;
                        If (s[i]=' ') and (s[i+1]=' ') then
                                s:=copy(s,i,i)+copy(s,i+2,length(s)-i-1);
                End;
        i:=0;
        While i<length(s)-1 do
                Begin
                        i:=i+1;
                        If s[i]=' ' then s[i+1]:=upcase(s[i+1]);
                End;
        Writeln('Xau ket qua: ',s);
        READLN;
END.