Паскаль!

[Tifa]

Найти часное нечетных ,отрицательных элементов массива
вот у меня есть задачка)!.....
Код:

Program progr1;
uses crt;
var
i,j,m,n,e:integer;
a:array[1..40,1..40]of integer;
s:real;
flag:boolean;
begin
clrscr;
write('ўўҐ¤ЁвҐ Є®«ЁзҐбвў® бва®Є');read(m);
write('ўўҐ¤ЁвҐ Є®«ЁзҐбвў® бв®«Ўж®ў');read(n);
flag:=true;
for i:=1 to m do
for j:=1 to n do
flag:=true;
for i:=1 to m do
for j:=1 to n do
begin
gotoxy(1,3);write('ўўҐ¤ЁвҐ a[',i,',',j,']');read(a[i,j]);
gotoxy(e+5*j,4+2*i);write(a[i,j]);
e:=5+e;
if j=n then e:=0
end;
for i:=1 to m do
for j:=1 to n do
begin
if(flag=true)then begin
if(a[i,j]<0)and(a[i,j]mod 2<>0)then begin
              s:=a[i,j];
              flag:=false;
              end;
end
else begin
if(a[i,j]<0)and(a[i,j]mod 2<>0)then begin
                s:=s/a[i,j];
                end;
 end;
end;
writeln(s:2:6);
readln;
readkey;
end.

надо из 2 масива сделать одномерный....(((но что бы задачка работала тагже!....напишите пожалуста очень прошу в исправленом виде програму!!)))***********)

[Stilet]

Program progr1;
uses crt;
var
i,j,m,n,e:integer;
a:array[1..40] of integer;
s:real;
flag:boolean;
begin
clrscr;
write('ўўҐ¤ЁвҐ Є®«ЁзҐбвў® бва®Є');read(m);
flag:=true;
for i:=1 to m do begin
 gotoxy(1,3);write('ўўҐ¤ЁвҐ a[',i,',',j,']');read(a[i]);
 gotoxy(e+5*j,4+2*i);write(a[i]);
 e:=5+e;
 if j=n then e:=0
end;

for i:=1 to m do begin
 if(flag=true)then begin
  if(a[i]<0)and(a[i]mod 2<>0)then begin
              s:=a[i];
              flag:=false;
              end;
end else begin
if(a[i]<0)and(a[i]mod 2<>0)then begin
                s:=s/a[i];
                end;
 end;
end;
writeln(s:2:6);
readln;
readkey;
end.

Сойдет?
Не проверял.