Двумерные массивы. Дан двумерный массив чисел. Первый нечетный элемент каждой строки удвоить (предполагается, что в каждой строке есть нечетный элемент).

спасибо

//PascalABC.NET 3.1 сборка 1239const    n = 10;    m = 10;var    i, j: integer;    a, b: array[1..n, 1..m] of integer;    f: boolean;begin    for i := 1 to n do     begin        for j := 1 to m do         begin            a[i, j] := random(50);            write(a[i, j]:3, ' ');        end;        writeln;    end;    writeln;        for i := 1 to n do     begin        f := false;        for j := 1 to m do         begin            if not f and (a[i, j] mod 2 = 1) then begin                a[i, j] := 2 * a[i, j];                f := true;            end;            write(a[i, j]:3, ' ');        end;        writeln;    end;end.