написать программу, которая находит максимальное нечетное число среди чисел ,записанных в файле, и выводит результат в другой файл.

подскажите как найти это число хотя бы

а что такое "setlength"? у меня из-за него программа не запускается и пишет"unknow indentifier"?

так же количество чисел неизвестно, значит без динамического массива никак не обойтись

почему, у меня же есть файл input.txt , где записаны числа , и среди них надо найти это число

вы не могли бы написать программу таким способом?считая, что есть готовый текстовый файл с числами, среди которых это максимальное отрицательное нечетное число?

Program n1;type z = array of integer;var a: z;i,n,max: integer;f: text;beginassign(f,'input.txt');reset(f);n:=0;while not eof(f) dobeginn:=n+1;setlength(a,n);read(f,a[n-1]);end;close(f);max:=a[0];for i:= 1 to n-1 doif (a[i]>max) and(a[i] mod 2<>0) then max:=a[i];assign(f,'output.txt');rewrite(f);write(f,max);close(f);end.