Строковые - 5 урок образец

Дана строка s. Найдите количество букв «а» в строке s.

Program prim;
   Var s: string;
          i, k: integer;
begin
  writeln ('Введите строку '); readln (s);
  k:=0;
  for i:=1 to length(s) do
     if s[i]='a' then k:=k+1;
  writeln ('Результат=', k);
end.

2-йспособ:

Program prim;
   Var s: string;
          i, k: integer;
begin
  writeln ('Введите строку '); readln (s);
  k:=0;
  for i:=1 to length(s) do
     if copy(s, i, 1)='a' then k:=k+1;
  writeln ('Результат=', k);
end.