Преобразование массива Опции

[die]

Помогите решить .
Дан целочисленный массив размера N. Увеличить все четные числа, содержащиеся в массиве, на исходное значение первого четного числа. Если четные числа в массиве отсутствуют, то оставить массив без изменений.
Заранее спасибо.

[die]

Даже не знаю чего намудрил ,

program Input_2_array;
uses Crt;
var M:array[1..3,1..4] of Integer;
j:integer; {столбец}
i:integer; {строка}
n:integer;
b:integer;
begin
n:=3;
Clrscr;
writeln ('Заполните двухмерный массив');
for i:=1 to 3 do
for j:=1 to 4 do
begin
write ('M(',i,',',j,')=');
read (M[i,j]);
end;
writeln ('Заполненный массив:');
for i:=1 to 3 do
begin
writeln;
for j:=1 to 4 do
write (M[i,j]:n);
end;
for i:=1 to n do
if not odd (m[i]) then
begin
b:=m[i];
break;
end;
for i:=1 to n do
if not odd (m[i]) then
m[i]:=m[i]+b;
repeat until keypressed;
end.