Ввести с клавиатуры 10 пар чисел. Сравнить числа в каждой паре и напечатать большие из них

Вот пожалуйста)) program qq; var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t:integer; begin cls; writeln ('Введите 10 пар чисел'); read (a,b); read (c,d); read (e,f); read (g,h); read (i,j); read (k,l); read (m,n); read (o,p); read (q,r); read (s,t); //Первая пара if a > b then writeln ('Первая пара больше число ' ,a) else  writeln ('Первая пара больше число ' ,b); //Вторая пара if c > d then writeln ('Вторая пара больше число ', c) else writeln ('Вторая пара больше число ',  d); //Третья пара  if e > f then  writeln ('Третья пара больше число ',  e) else  writeln ('Третья пара больше число ',  f); //Четвертая пара if g > h then writeln ('Четвертая пара больше число ' , g) else  writeln ('Четвертая пара больше число '  , h); //Пятая пара if  i > j then writeln ('Пятая пара больше число ' , i) else writeln ('Пятая пара больше число '  ,g); //Шестая пара if  k > l then writeln ('Шестая пара больше число '  ,k) else  writeln ('Шестая пара больше число '  ,l); //Седьмая пара  if  m > n then  writeln ('Седьмая пара больше число ' , m) else  writeln ('Седьмая пара больше число '  ,n); //Восьмая пара if  o > p then writeln ('Восьмая пара больше число '  ,o) else  writeln ('Восьмая пара больше число '  ,p); //Девятая пара if  q > r then  writeln ('Девятая пара больше число '  ,q) else  writeln ('Девятая пара больше число '  ,r); //десятая пара  if  s > t then writeln ('Десятая пара больше число '  ,s) else  writeln ('Десятая пара больше число '  ,t); end.