Ввести с клавиатуры 10 пар чисел, найти максимальное число в каждой паре и вывести его на экран. В работе использовать цикл с предусловием.

var num1,num2,i:integer; nums:array [1..10] of integer; begin   i:=1; while (i <= 10) begin writeln('Vvedite ',i,' paru!'); write('num 1: ');readln(num1); write('num 2: ');readln(num2); if(num1 >= num2) then nums[i]:=num1 else nums[i]:=num2; i:=i+1; end;   i:=1; while(i<=10)begin write(nums[i],' '); i:=i+1; end;   end.