21 практическая работа работа со строками

var countE: Integer;
begin
countE := 0;
for i := 1 to Length(originalString) do
if (originalString[i] = 'е') or (originalString[i] = 'Е') then
countE := countE + 1;
WriteLn('Количество символов "е" и "Е": ', countE);
end;

ReadLn;
end.