Если не сложно

[Vladimir Ryabov]

Люди помогите переделать вот этод код программы под вот это условие

program massiv;

{$APPTYPE CONSOLE}
type
mas=array [1..10] of integer;

var
A:mas;
i,n:Integer;
f,T,p,max:Integer;
flag:boolean;
dat,res:textfile;

procedure Vvod(var x:mas; m,y:integer);
var
i:integer;
begin
readln(dat,m);
for i:=1 to m do
read(dat,x[i]);
readln(dat,y);
end;

Begin
assign(dat, paramstr(1));  reset(dat);
assign(res, paramstr(2));  rewrite(res);

Vvod(a,n,t);

flag:=true;
i:=1;
while True and (i<=n) do
Begin
If A[i]=T then
Begin
flag:=false;
T:=i;
End;
i:=i+1;
end;

if flag=true then
T:=1;
f:=0;
p:=0;
i:=t;
while (i<=n) and (f=0) do
begin
If A[i]<0 then
begin
T:=i;
p:=i;
f:=a[i];
i:=i+1;
end;
i:=i+1;
end;
for i:=t+1 to n do
if (a[i]<0) and (a[i]>f) then
begin
p:=i;
f:=a[i];
end;
if p=0 then
writeln(res, 'После элемента T нет отрицательных элементов')
else Writeln(res, 'номер элемента: ',p);
closefile(dat);
closefile(res);
end.

вот новое условие
Задан целочисленный одномерный массив A из N элементов. Найти номер последнего максимального значения среди нечетных (по значению) элементов, расположенных до последнего четного (по значению) элемента. Если нет четных элементов, искать до конца массива. (Подсказка: «Сначала найти первый нечетный и последний четный, а затем уже искать максимум, или вывести сообщение о причинах невозможности поиска.»)с процедурами
с вводом данных и выводом данных и результатов в текстовый файл; имена файлов передавать через параметры программы

[Serge_Bliznykov]

КРОССПОСТ
Ваша тема здесь:
В целочисленном одномерном массиве A(N) найти номер последнего максимального значения среди нечетных элементов (Pascal)


ЗАКРЫТО.