В каждой строке матрицы поменять местами первый четный и последний нечетный элемент

const n=5;
      m=5;
      k=10;
var a:array[1..n,1..m]of integer;
    b:array[1..k]of integer;
    i,j,t,p,temp:integer;
    flag:boolean;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
begin
  for j:=1 to m do
  begin
    a[i,j]:=random(11);
    write(a[i,j]:3);
  end;
  writeln;
end;
writeln('Исходный массив:');
for i:=1 to k do
begin
  b[i]:=random(11);
  write(b[i]:3);
end;
writeln;
for i:=1 to n do
for j:=1 to m-1 do
begin
    flag:=false;
    if not odd(a[i,j]) then 
      for t:=m downto j do
      if odd(a[i,t]) then 
      begin
        flag:=true; break;
      end;
    if flag=false then break
  else
  begin
    flag:=false;
    for p:=1 to k do
      if a[i,j]=b[p] then flag:=true;
    if flag then
    begin
      for p:=1 to k do
       if a[i,t]=b[p] then
       begin
          writeln('В строке ',i,' замена элемента: ',a[i,j],' на ',a[i,t]);
          temp:=a[i,j];
          a[i,j]:=a[i,t];
          a[i,t]:=temp;
          break;
      end;
    end;
  break;
  end;
  if flag=false then break;
end;
writeln('Результат:');
for i:=1 to n do
begin
  for j:=1 to m do write(a[i,j]:3);
  writeln;
end;
end.