Luyện thi HSG pascal

Câu 1: Nhập từ bàn phím một xâu...?

b) các bạn gõ y như câu a thay chữ p thành chữ bất kì (không bị trùng với biến trong chương trình).

Câu 2: Vết chương trình nhập từ bàn phím một xâu kí tự S và thông báo ra màn hình số lần xuất hiện của mỗi chữ cái tiếng Anh trong S (không phân biết chữ hoa hay thường).

uses crt;
var s:string;
    a:array['A'..'Z'] of integer;
    ch:char;
    i:integer;
begin
 clrscr;
 write('nhap chuoi: '); readln(s);
 for i:=1 to length(s) do
  s[i]:=upcase(s[i]);
 for ch:='A' to 'Z' do
   for i:=1 to length(s) do
    if s[i]=ch then inc(a[ch]);
 for ch:='A' to 'Z' do
  if a[ch]<>0 then
  writeln(a[ch],ch);
readln;
end.

Câu 3: Nhập vào từ bàn phím một xâu. thay thế tất cả các cụm kí tự 'anh' bằng cụm kí tự 'em'?

uses crt;
var s:string;
begin
 clrscr;
 writeln('nhap chuoi: '); readln(s);
 while pos('anh',s)<>0 do
  begin
   delete(s,pos('anh',s),3);
   insert('em',s,pos('anh',s));
  end;
 writeln('chuoi sau khi chen: ');
 writeln(s);
readln;
end.