Написать программу на Pascal ABC. Данопредложение. Вывести строчку в оборотном порядке.

Var
  str : string;
  i, count : integer;
begin
  часть 1 - оборотный порядок
  write('Введите строчку: ');
  readln(str);
  write('Итог: ');
  for i := length(str) downto 1 do
    write(str[i]);
  часть 2 - считаем "и"
  count := 0;
  for i := 1 to length(str) do
    if (str[i] = 'и') and (i mod 2 = 0) then
      count := count + 1;
  writeln;           переходим на следующую строчку
  for i := 1 to count do
    writeln('и');
end.