Giải bài tập TIN HỌC (Thầy Tú): Ký tự và Chuỗi

Hix... Sau một thời gian ôn luyện chuẩn bị thi HSG giờ đây mới có thời gian lên lại Diễn đàn!
Xem tình hình bọn này post bài khiếp quá, mình quyết định spam lại cho bõ chán bằng các bài giải tin học... he he he!

Bài 31. Viết chương trình nhập vào một chuỗi, cho biết:
a. Độ dài của chuỗi.
b. Trong chuỗi có bao nhiêu ký tự 'a', ký tự 'A'
c. Cho biết chuỗi có mấy khoảng trắng và ở những vị trí nào.

!!! Bài này dễ, nên chắc em không cần làm! (sorry spam)

Nhập vào chuỗi S1 và S2, in ra màn hình:
a. Hai chuỗi này có bằng nhau không?
b. Hai chuỗi này có bằng nhau không nếu chỉ xét k ký tự đầu tiên.

!!! Bài này cũng dễ! (Tiếp tục spam)

Chương trình bài toán:
VAR s1, s2:string;
i, k:byte;
b:boolean;
BEGIN
write('Nhập chuỗi S1: '); readln(s1);
write('Nhập chuỗi S2: '); readln(s2);
write('Số ký tự muỗn xét: '); readln(k);
if s1=s2 then writeln('Hai chuỗi này bằng nhau!') else writeln('Hai chuỗi này không bằng nhau!');
b:=true;
for i:=1 to k do
if not s1[i]=s2[i] then b:=false;
if b=true then writeln(k,' ký tự đầu của 2 chuỗi bằng nhau.');
else writeln(k,' ký tự đầu của 2 chuỗi không bằng nhau.');
readln
END.

thanks nhá