Превратить последовательность действительных чисел а1, а2, .. а20 по правилу: большую из компонент аі и аі +10 (считать новым значением аі меньшую-считать новым значением аі +10 — Pascal(Паскаль)

var
a:array[1..20]of integer;
i,t:integer;
begin
randomize;
writeln('massiv');
for i:=1 to 20 do
begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do
if a[i]<a[i+10] then begin
t:=a[i];
a[i]:=a[i+10];
a[i+10]:=t;
end;
writeln('novyj massiv');
for i:=1 to 20 do
write(a[i],' ');
readln;
end.