не знаю как дальше написать программу

[rasperatar]

Ввести матрицу A(N×M), вывести ее. В каждой строке матрицы поменять
местами минимальный среди четных элементов и первый элемент строки.
Если нет четных элементов в строке, то оставить ее без изменения.

вот ввод и вывод матрицы,а что дальше делать не пойму:

Program a;
var A:array[1..100,1..100] of integer;
imn,N,M,i,j:integer;
Begin
write('N=');
readln(N);
write('M=');
readln(M);
for i:=1 to N do
for j:=1 to M do
begin
write('A[',i,',',j,']=');
readln(A[i,j]);
end;
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j],' ');
writeln;

end;

[rasperatar]

или хотя бы кто знает как в каждой строке найти минимальные среди четных элементов

[roman_1985]

алгоритм примерно такой-

for i=0 to n do 
begin 
  max:=a[i,1];
   for j=0 to m do 
      begin
           if (a[i,j]mod2=0) and (a[i,j]>max) then max:=a[i,j];
      end;
   x=max;
   max=a[i,1];
   a[i,1]=x;
end;

предварительно инициализировав max и x
Проверяй на деле