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

const   n=10; var   a:array[1..n]of integer;   i,k:integer; begin writeln('Исходный массив:'); for i:=1 to n do   begin   a[i]:=random(10);   write(a[i]:4);   if a[i] mod 2>0 then k:=a[i];   end; writeln;   if k>0 then   for i:=1 to n do     if a[i] mod 2>0 then a[i]:=k+a[i]; writeln('Конечный массив:'); for i:=1 to n do  write(a[i]:4); end.