одномерный массив на паскале

[druger]

Вот я написал такую прогу: в одномерном массиве, состоящем из N элементов: максимальный среди нечётных поменять местами со 2 элементом массива. Но она не работает помогите иправить. Либо напишите свой вариант

program p4;
uses crt;
const n=5;
var a:array [1..n] of integer;
i,max,m:integer;
begin
clrscr;
for i:=1 to n do
 begin
 write('vvedite 5 elementov massiva');
 read(a[i]);
 a[1]:=max;
 end;
for i:=2 to n do
  begin
  if (a[i]mod 2=1)and (a[i]>max)
  then max:=a[i]
  else writeln('v massive libo 1 nechetnii element libo ih net');
  m:=max;
  max:=a[2];
  a[2]:=m;
  end;
writeln(a[i]);
readln
end.

[JUDAS]

Пока не найдёте максимальный, менять не стоит, а то вы поменяете все элементы в массиве.

max := a[1];
m    := 1;
for i:=2 to n do 
if (a[i]mod 2=1) and (a[i]>max) then // ищем максимальный нечётный
begin
 max:=a[i]; // запоминаем его чтобы сравнивать
 m:=i;        // запоминаеи индекс 
end;
// i- отработал в цикле, поєтому можно использовать как буффер
i:=a[2];  // заносим в i 2-й элемент
a[2]:=a[m]; // затираем второй элемент найденным m-тым который максимален
a[m]:=i;  // возвращаем второй элемент в m-ную ячейку
ВСЁ