Составить программу которая n раз выводила бы на экран 2 случайных числа и находила бы большее из них

var n,a,b,i: Integer;beginwriteln('Введите кол-во раз:');readln(n);for i:=0 to n dobegina:=random(1000);b:=random(1000);writeln('1 число: ',a,', 2 число:',b);if a>b then writeln(a,'>',b);if a<b then writeln(a,'<',b);if a=b then writeln(a,'=',b);end;end.