1. viết chương trình pascal nhập vài một sâu S, tính số lần xuất hiện chữ cái 'a' có trong xâu S 2. viết chương trình nhập vào một xâu S. hãy thay thế tất cả các từ 'anh ' có trong xâu Svừa nhập thành từ 'em' (vd: nhập S=' anh toi tot bung ', xâu kết quả S= 'em toi tot bung' MÌNH CẦN GẤP CHO BÀI KTRA LẮM Ạ!!!! MONG MN GIÚP ĐỠ

Bài 1 nha

program tong;
uses crt;
var S:string;
    i,dem:integer;
begin
 clrscr;
 readln(S);
 For i:=1 to length(S) do if S[i]='a' then inc(dem);
 writeln(dem);
 readln;
end.

Bài 2

program tong;
uses crt;
var S:string;
    i,vt:integer;
begin
 clrscr;
 readln(S);
 while pos('anh',S)>0 do
  begin

   insert('em',S,pos('anh',S));
   delete(S,pos('anh',S),3);
  end;
 writeln(S);

 readln;
end.

1.

Program BTT;
Uses crt;
Var St: String;
    i,d: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        d:=0;
        For i:=1 to length(St) do
                If St[i]='a' then inc(d);
        Write(d);
        Readln
End.

2.

Program BTT;
Uses crt;
Var St: String;
    i,vt: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        While Pos('anh',St)<>0 do
        Begin
                vt:=Pos('anh',St);
                Delete(St,vt,3);
                Insert('em',St,vt);
        End;
        Write(St);
        Readln
End.