[a109]

Добрый день,помогите пожалуйста найти ошибку.Задание такое: Задан целочисленный одномерный массив A из N элементов. Найти номер первого максимального элемента среди элементов, значения которых лежат в диапазоне [c,d] и расположенных до последнего элемента с нечетным значением. Вот код:

Код:

Program lab6;
{$APPTYPE CONSOLE}
Uses SysUtils;
Const
nmax=20;
var 
a:array [1..nmax] of integer;
n,i,d,c,nom,max:integer;
dat,res:textfile;
begin
AssignFile(dat, paramstr(1));
reset(dat);
read(dat, n,c,d);
for i:=1 to n do read(dat, A[i]);
CloseFile(dat);

AssignFile(res, paramstr(2));
rewrite(res);
writeln(res, 'Исходные данные:');
writeln(res, 'n = ',n);
writeln(res, 'c=',c);
writeln (res, 'd=',d);
   write(res, 'Исходный массив: ');

   for i:=1 to n do
write(res, A[i]);
writeln(res,'');


nom:=0;

max:=c;
for i:=c+1 to d do
if a[i]>a[max] then max:=i;
writeln(res,'max',max);

for i:=n-1 downto 1 do
begin
if a[i] mod 2=1 then nom:=i;
end;
if   max<nom then writeln(res,'номер',max)  else writeln (res,'Такого элемента нет');

CloseFile(res);
writeln('Press Any Key');
readln;
end.

MAD: Тег CODE