Пожалуйста посчитайте с информатикой, пожалуйста (номер 22)

begin
  var n:=ReadInteger('n=');
  Writeln('Массив X'); var x:=ArrRandom(n,-99,99); x.Println;
  Writeln('Массив Y'); var y:=ArrRandom(n,-99,99); y.Println;
  var t:=new integer[n];
  var k:=0;
  for var i:=0 to n-1 do
    if x[i]>=y[i] then begin t[i]:=x[i]; k+=1 end
    else t[i]:=y[i];
  Writeln('Массив T'); t.Println;
  Writeln('Элементы массива Х вошли в Т ',k,' раз(а)')
end.


n= 13
Массив X
13 67 -76 -28 -61 -3 -54 35 -37 -36 -8 -17 -4
Массив Y
16 80 11 -66 19 -74 94 -93 -66 -41 44 11 46
Массив T
16 80 11 -28 19 -3 94 35 -37 -36 44 11 46
Элементы массива Х вошли в Т 5 раз(а)