Mọi người giúp mình làm 2 bài tập này nhé

[quanteo]

1.Nhập 1 chuỗi tùy ý gồm nhiều từ, mỗi từ cách nhau 1 khoảng trắng, trong chuỗi bao gồm cả kí tự chữ và kí tự số,thực hiện:
-Đếm số từ có trong chuỗi
-Đếm số kí tự số có trong chuỗi
-Đếm số kí tự chữ có trong chuỗi
-In ra mỗi từ trên 1 dòng khác nhau
*Lưu ý: mỗi thao tác phải thực hiện = 1 CTC
2.Tìm số lớn nhất trong 2 số nguyên X,Y trong đó sử dụng CTC tìm max

[mr_invincible]

1. Đầu tiên xóa hết 2 dấu cách liền nhau: gọi xâu cần xử lí là s:
While pos(' ',s)>0 do {Có 2 dấu cách liền nhau trong s}
delete(s,pos(' ',s),1);
Duyệt từ đầu dãy đến cuối dãy, nếu gặp dấu cách thì tăng số từ:
For i:=2 to length(s)-1 do
If a[i]=' ' then sotu:=sotu+1;
Ý thứ 2:
For i:=1 to length(s) do
If pos(s[i],'1234567890')>0 then inc(sokitu);
Các ý sau hoàn toàn tương tự, bạn cố gắng tự làm nhé.