Ввести с клавиатуры 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);
//1-ая пара
if a gt; b then
writeln ('1-ая пара больше число ' ,a)
else 
writeln ('1-ая пара больше число ' ,b);
//2-ая пара
if c gt; d then
writeln ('2-ая пара больше число ', c)
else writeln ('2-ая пара больше число ',  d);
//3-я пара 
if e gt; f then 
writeln ('Третья пара больше число ',  e)
else 
writeln ('Третья пара больше число ',  f);
//4-ая пара
if g gt; h then
writeln ('4-ая пара больше число ' , g)
else 
writeln ('4-ая пара больше число '  , h);
//5-ая пара
if  i gt; j then
writeln ('5-ая пара больше число ' , i)
else writeln ('Пятая пара больше число '  ,g);
//Шестая пара
if  k gt; l then
writeln ('Шестая пара больше число '  ,k)
else 
writeln ('Шестая пара больше число '  ,l);
//Седьмая пара 
if  m gt; n then 
writeln ('Седьмая пара больше число ' , m)
else
 writeln ('Седьмая пара больше число '  ,n);
//Восьмая пара
if  o gt; p then
writeln ('Восьмая пара больше число '  ,o)
else 
writeln ('Восьмая пара больше число '  ,p);
//Девятая пара
if  q gt; r then 
writeln ('Девятая пара больше число '  ,q)
else 
writeln ('Девятая пара больше число '  ,r);
//десятая пара 
if  s gt; t then
writeln ('Десятая пара больше число '  ,s)
else 
writeln ('Десятая пара больше число '  ,t);
end.