Отыскать все нечетные элементы массива целых чисел на паскале

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