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

type massiv=array [,]of integer;
   var a:massiv;
     n,i:integer;
   procedure vvod(n1:integer; var x:massiv);
var i,j:integer;
begin
randomize;
for i:=0 to n1-1 do
  for j:=0 to n1-1 do
x[i,j]:=-100+random(201);
end;
procedure vivod (n1:integer; x:massiv);
var i,j:integer;
begin
for i:=0 to n1-1 do
  begin
  for j:=0 to n1-1 do 
  write(x[i,j]:5);
  writeln;
  end;
  end;
procedure ydv (n1:integer; x:massiv);
var i,j:integer;
 begin
  j:=1;
  while x[i,j] div 2 = 0 do j:=j+1;
  x[i,j]:=x[i,j]*2;
 end;
 begin
  while x[i,j] <> 0 do i:=i-1;
  x[i,j]:=x[i,j]*2;
 end;
BEGIN
SetLength(a,n,n);
vvod(n,a);
vivod(n,a);
 ydv (n,a);
 vivod (n,a);
END.

type massiv=array [,]of integer;
procedure vvod(var n1:integer; var x:massiv);
var i,j:integer;
begin
randomize;
write('n=');
read(n1);
SetLength(x,n1,n1);
for i:=0 to n1-1 do
for j:=0 to n1-1 do
x[i,j]:=-100+random(201);
end;
procedure vivod (n1:integer; x:massiv);
var i,j:integer;
begin
for i:=0 to n1-1 do
 begin
  for j:=0 to n1-1 do 
  write(x[i,j]:5);
  writeln;
 end;
writeln 
end;
procedure ydv (n1:integer; var x:massiv);
var i,j:integer;
begin
for i:=0 to n1-1 do
 begin
  j:=0;
  while x[i,j] mod 2 = 0 do j:=j+1;
  x[i,j]:=x[i,j]*2;
 end;
end;
var a:massiv;
    n:integer; 
BEGIN
vvod(n,a);
vivod(n,a);
ydv (n,a);
vivod (n,a);
END.