Отыскать количество нечётных частей массива (паскаль)

var
  i, n: integer;                             // объявляем переменные целочисленного типа.
  arr: array [1..10] of integer;      // объявляем массив, размерностью 10.
  s : string;                                // объявление переменной строкового типа.
begin
  for i := 1 to 10 do            // начало цикла.
    begin
      arr[i] := random(0, 20);        // наполняем элемент массива числом из спектра 0; 20.
      s := s + inttostr (arr[i])+ ;                   // записываем массив в одну строчку.
      if (arr[i] mod 2 lt;gt; 0) then n := n + 1;    // считаем количество нечетных элементов.
    end;
 writeln (Исходный массив: , s);   // вывод исходного массива на экран.
 writeln(Количество нечетных элементов в массиве одинаково: , n); // вывод строчки на экран.
end.