Составьте программу подсчета числа одинаковых букв

uses crt;
var x,y:string;
i,k:integer;
 
begin 
 clrscr;
 write('X-> ');
 readln(x);
 write('Y-> ');
 readln(y);
 k:=0;
 for i:=1 to length(x) do if x[i]=y[i] then inc(k);
 writeln(k);
 readln;
end.

var x,y:string;i,c:integer;
begin
readln(x);
readln(y);
i:=1;
c:=0;
while (i<=length(x)) and (i<=length(y)) do
begin
if x[i]=y[i] then inc(c);
inc(i);
end;
writeln(c);
readln;
end.

var x:string;i:integer;
begin
readln(x);
i:=1;
while i<=length(x) do
begin
if x[i]='а' or x[i]='я' then x[i]:='о';
inc(i);
end;
writeln(x);
readln;
end.

uses crt;
var a:array[1..100]of integer;
i,n,kol,ch,j:integer;
begin clrscr;
randomize;
write('n=');
read(n);
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i],'  ');
 end;
writeln;
for j:=1 to n do
 begin
  kol:=0;
  ch:=a[j];
  for i:=1 to n do
  if a[i]=ch then inc(kol);
  writeln('element ',ch,' vstrechaetsya ',kol,' raz');
 end;
readkey;
end.