Даны два числа. найти меньшее из них. (написать программу на паскале)

Var a,b:integer;
begin;
readln(a);
readln(b);
if a<b then write('Первое');
if a>b then write('Второе');
if a=b then write('=');
end.