Заменить все четные элементы последовательности на единицу

program pjataja;
uses crt;
var
i,j,n :integer;
A : array[1..10,1..10] of integer;
begin
n:=5;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
end;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
if (a[i,j] mod 2 = 0) then
a[i,j]:=1;
write (a[i,j],' |');
end;
end;
end.

program pjataja;
uses crt;
var
i,j,n :integer;
A : array[1..10] of integer;
begin
n:=10;
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
end;
 
for i:=1 to n do
begin
writeln;
 
begin
if (a[i] mod 2 = 0) then
a[i]:=1;
write (a[i],' |');
end;
end;

var
i,n :integer;
a : array[1..10] of integer;
begin
n:=5;
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],' ')
end;
 
writeln;
for i:=1 to n do
begin
if (a[i] mod 2 = 0) then a[i]:=1;
write(a[i],' ');
end;
 
end.

var m,r1,r2,s:real; k:integer;
 
function inerc(m,r1,r2:real):real;
var z:real;
begin
z:=(sqr(r1)*r1-sqr(r2)*r2);
if z=0 then begin writeln('Error: знаменатель =0'); exit end;
inerc:=(3/2)*m*((sqr(r1)*sqr(r1)*r1-sqr(r2)*sqr(r2)*r2)/z);
end;
 
begin
s:=0;
for k:=1 to 3 do
begin
write('Введите массу ',k,'-го шара: '); readln(m);
write('Введите R1 ',k,'-го шара: '); readln(r1);
write('Введите R2 ',k,'-го шара: '); readln(r2);
s:=s+inerc(m,r1,r2)
end;
writeln('Средний момент инерции для трех шаров: ',s/3)
end.