Viết chương trình tìm max của 2 số nguyên a và b

program dz;
ues crt;
var a,b:longint;
procedure sosanh;
var min,max:longint;
begin
     if a>b then begin max:=a;min:=b;end
     else begin max:=b;min:=a;end;
     writeln(' So lon hon la : ',max);
     write(' So ba hon la : ',min);
end;
BEGIN
       clrscr;
       write(' Nhap a, b : ');readln(a,b);
       sosanh;
       readln
End.

var a,b:longint;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

if a>b then write('So lon la: ',a) 

else if a<b then write('So lon la: ',b)

else write('Hai so bang nhau');

readln;

end.