Подскажите где в коде ошибка?Паскаль

[Мортум]

1.Найти максимальное и минимальное нечетные числа и их среднее арифметическое.

const n = 19;
var i, imax, imin, sr: integer;
    a: array [1..n] of integer;
begin
  randomize;
  imax := 0;
  imin := 0;
  writeln('Source array:');
  for i := 1 to n do
    begin
     a[i] := -99 + random(199);
     write(a[i]:4);
     if odd(a[i])
       then if (imin = 0) or (a[i] < a[imin])
         then imin := i
         else if (imax = 0) or (a[i] > a[imax])
           then imax := i
    end;
  writeln;
  if (imax = 0) and (imin = 0)
    then write('Odd elements not found')
    else if imax = 0
      then write('Only one odd element is found')
      else begin
        writeln('Min odd element: A[', imin, '] = ', a[imin]);
        writeln('Max odd element: A[', imax, '] = ', a[imax]);
        sr := (a[imin] + a[imax]) div 2;
        writeln('Average of the maximum and minimum odd elements = ', sr)
      end;
  write('Press <Enter> to exit');
  readln
end.

2. Вычислить вектор a={a1,a2,...,an} , если ak=min ( xk,yk) , векторы x и y заданы.

Program Summa;
  Uses Crt;
  Type Mas = Array [1..20] of Real;
  Var A    : Mas;
      i, N : Integer;
      S    : Real;
BEGIN
  ClrScr;    {очистка экрана }
  Write('Введите N = ');
  ReadLn(N); {ввод значения N}
  For i := 1 to N dо {цикл по элементам массива}
    begin
      Write('A [ ', i , ' ] = ');
      ReadLn(A[i])   {ввод элементов массива}
    end;
  S := 0; {присваивание начального значения}
  For i := 1 to N do S := S+A[i]; {суммирование}
  WriteLn;
  WriteLn('Сумма равна ', S : 5 : 1);
  ReadLn
END.

Правильно оформляй код. Кнопка # вверху

[Мортум]

есть еще вариант решения первой задачи
например

type
    massiv = array [1..1000] of integer; // создаём свой тип данных для массива
  
var
    mass : massiv; // объявляем переменные 
    i, n, summa, count : integer; // объявляем переменные 
    sred : real; // объявляем переменные 
     
begin
    write('Введите длину массива : ');readln(n); // просим пользователя ввести длину массива
     
    for i:=1 to n do // делаем цикл для заполнения массива
        begin
            write('Введите ', i , ' элемент : ');readln(mass[i]); // заполняем массива вручную
            if (i mod 2 <> 0) then // проверяем на нечетность номер элемента, если нечетный, то
                begin
                    count := count + 1; // увеличиваем кол-во нечетных номеров
                    summa := summa + mass[i]; // и увеличиваем сумму
                end;
        end;
    sred := summa / count; // находим среднее арифметическое
     
    writeln('Среднее арифметическое с нечетными номерами : ' , sred); // выводим результат
    readln; // чтобы программа не закрывалась
end.

[Мортум]

Товарищи помогите ради бога разобраться в ошибках, а то мне начинает казаться, что там все уже не правильно((((

[Stilet]

1.Найти максимальное и минимальное нечетные числа и их среднее арифметическое.

const n = 19;
var i, imax, imin, sr: integer;
    a: array [1..n] of integer;
begin
  randomize;
  imax := 0;
  imin := 0;
  writeln('Source array:');
  for i := 1 to n do
    begin
     a[i] := -99 + random(199);
     write(a[i]:4);
     if odd(a[i])  then begin 
       if (imin = 0) or (a[i] < a[imin])    then imin := i;
       if (imax = 0) or (a[i] > a[imax])   then imax := i
    end;

  writeln;
 
 if (imax=0) then write('Not found a both')
 else write('average=',((a[imax]+a[imin])/2):5:2);
 
 
  write('Press <Enter> to exit');
  readln
end.

2. Вычислить вектор a={a1,a2,...,an} , если ak=min ( xk,yk) , векторы x и y заданы.

Код:

Program Summa;
  Uses Crt;
  Type Mas = Array [1..20] of Real;
  Var A,x,y    : Mas;
      k : Integer;
BEGIN
  ClrScr;    {очистка экрана }
  Write('Введите N = ');
  ReadLn(N); {ввод значения N}
  For k := 1 to N dо {цикл по элементам массива}
    begin
      Write('x [ ',k , ' ] = ');     ReadLn(x[k])   {ввод элементов массива}
      Write('y [ ',k , ' ] = ');     ReadLn(y[k])   {ввод элементов массива}
      if x[k]<y[k] then a[k]:=x[k] else a[k]:=y[k];
    end;
  WriteLn;
  For i := 1 to N do write(A[i]:5:2); {суммирование}

  ReadLn
END.

[Мортум]

Спасибо!!!!