Помогите пожалуйста! Очень надо! паскале

см. файл ================

//Pascal ABC.NET 3.1 сборка 1219 uses  crt; Const   n=10;  Var  ar:array[1..n] of integer;  i,s:integer; begin  s:=0;  writeln('Ввод элементов массива');  for i:=1 to n do   begin    write('Введите ',i,' элемент массива:');  read(ar[i]);    if odd(ar[i]) then s:=s+ar[i];   end;  clrscr;  for i:=1 to n do   write(ar[i]:4);  writeln;  writeln('Сумма нечётных элементов массива равна:', s); end.