Подсчитать сколько раз в заданной строке встречаются символы ‘a’ и ‘1’

var
  s1,s2:string;
  i:integer;
begin
  readln(s1);
  for i:=1 to length(s1) do
    s2:=s2+s1[i];
  writeln(s2)
end.

var
  s:string;
  num,len:integer;
begin
  writeln('Çàäàéòå ñòðîêó...');
  readln(s);
  writeln('Çàäàéòå íîìåð ñèìâîëà...');
  readln(num);
  writeln('Çàäàéòå äëèíó...');
  readln(len);
  writeln(copy(s,num,len))
end.

var
  s:string;
  i,c1,c2:integer;
begin
  writeln('Çàäàéòå ñòðîêó...');
  readln(s);
  c1:=0;
  c2:=0;
  for i:=1 to length(s) do
    if s[i]='a' then
      inc(c1)
    else
      if s[i]='1' then
        inc(c2);
  writeln('"a" - ',c1);
  writeln('"1" - ',c2)
end.

var
  s:string;
  i,k1,k2:integer;
begin
  writeln('Задайте строку...');
  readln(s);
k1:=0;k2:=0;
for i:=1 to lengths(s) do
begin
if s[i]='a' then inc(k1);
if s[i]='1' then inc(k2);
end;
writeln('a vstrechaetsa ',k1,' raz');
writeln('1 vstrechaetsa ',k2,' raz');
readln;
end.