Файл из одномерных массивов.

[OTuser]

Код выделен в первом посте, вот, собственно, и он:

{-------------Начало куска-------------}
 if odd(k) then {Если компонента нечетная - поиск максимума в компоненте}
  begin
   For i:=1 to N do
   if a[i]>max then
    begin
     max:=a[i];
     kmax:=k;
    end;
 end
else {Если четная - поиск минимума}
 begin
  For i:=1 to N do
  if a[i]<min then
   begin
    min:=a[i];
    kmin:=k;
   end;
 end;
{--------------Конец-куска----------------}

[OTuser]

Помогите кто-нибудь =\