Дана программа нахождения меньшего из двух чисел.

var a,b:integer;
procedure Poisk(a,b:integer);
begin  
if a > b then  
  writeln('Меньшее число ', b);
  if a=b then  
    writeln('Равны');  
  if a < b then    
  writeln('Меньшее число ', a);
end;  
begin  
writeln('Введите числа');
  readln(a,b);  
Poisk(a,b);
end.