For i:=1 to length(s) do if copy(S, i, 1)= 'a' then k:=k+1; * Что выполняет этот фрагмент программы?
Находит количество элементов в массиве