Массив: При заданных значениях X1, X2, ..., Xn и Y1, Y2, ... , Yn получить массив T1, T2, ... Tn, где Ti = Max(Xi,Yi)

var x,y,t:array[1..20] of integer;
    n,i,k:integer;
begin
randomize;
repeat
write('Введите размеры массивов от 2 до 20 n=');
readln(n);
until n in [2..20];
writeln('Массив Х');
for i:=1 to n do
 begin
  x[i]:=10+random(90);
  write(x[i]:3);
 end;
writeln;
writeln('Массив Y');
for i:=1 to n do
 begin
  y[i]:=10+random(90);
  write(y[i]:3);
 end;
writeln;
writeln('Массив T');
k:=0;
for i:=1 to n do
 begin
  if x[i]>y[i] then
   begin
    k:=k+1;
    t[i]:=x[i];
   end
  else t[i]:=y[i];
  write(t[i]:3);
 end;
writeln;
write('Значений X[i]=',k)
end.

const
  N = 5;
 
var
  X, Y, T: array [0..N - 1] of integer;
  i: integer;
  Count: integer;
 
function Max(a, b: integer): integer;
begin
  if a > b then
  begin
    Result := a;
    Inc(Count);
  end
  else
    Result := b;
end;
 
begin
  for i := 0 to N - 1 do Readln(X[i]);
  for i := 0 to N - 1 do Readln(Y[i]);
  
  for i := 0 to N - 1 do T[i] := Max(X[i], Y[i]);
  
  for i := 0 to N - 1 do Writeln(T[i]);
  Writeln('Count = ', Count);
end.