Делфи 7. Дан массив A размера N. Найти минимальный элемент из его элементов с четными номерами: A2, A4, A6, ...

[eoln]

for i:= 2 to N do
   if A[2*i]<Min then Min:=A[2*i];

это что за код? Зачем нужно спрашивать как исправить и не исправлять? Я же написал как нужно изменить эти строки N div 2 Или же в ф-ию уже передаётся значение в 2 р меньше (тогда где это показано?)
Как вариант, воспользуйся кодом от Serge_Bliznykov
С проверкой перемудрено

If N<2 then begin
result:='Их нету';
exit
end;

На счёт

result := result  + IntToStr(a[i]);

так нельзя. использовать счётчик вне цикла опасно по причине оптимизации (for в асме нет и он заменяется на цикл с пост или пред условиям, которые могут изменить счётчик или не изменить в последней или перед первой итерацией). Пиши

result := result  + IntToStr(a[N]);

[nadyaH]

function Chet(a: TArray; N: integer): string;
var
  i, Min : integer;
begin
if N=1 then
begin
 result:='Ошибка. Число N должно быть больше 1';
end
else
begin
  result := '';
  Min := a[2];
  i := 2;
  while i<=N do begin
    if a[i]<Min then Min := a[i];
    i := i + 2;
  end;
  result := IntToStr(Min);
end;end;

Сделала изменения.Вроде программа правильно работает!
Спасибо всем за помощь!!!