Даны массивы X(x1,x2,…,x10) и Y(y1,y2,…,y10). Образовать массив Z, элементы которого определяются следующим образом: (усл. во вложении) — Pascal(Паскаль)

program lab;
const n=10;
var
x,y,z :array [1..n] of integer;
i:integer;
begin
 for i:=1 to n do
 begin
  write('x(',i,')=');
  ReadLn (x[i]);
 end;
 for i:=1 to n do
 begin
  write('y(',i,')=');
  ReadLn (y[i]);
 end;
 for i:=1 to n do
   if x[i]>=y[i] then
    begin
     z[i]:=x[i];
    end
   else
    begin
     z[i]:=y[i];
    end;
for i:=1 to n do WriteLn('z[',i,']=',z[i]);
readln;
end.