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

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

//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.