Program Mencari Nilai Terbesar (Procedure)

Ini adalah program mencari bilangan terbesar tapi menggunakan procedure:
_________________________________________________________

program seleksi_max;
uses crt;
procedure max;
var
   e,dy : integer;
begin
     write('Masukan bilangan 1 : ');readln(e);
     write('Masukan bilangan 2 : ');readln(dy);
     if e>dy then
        write('Nilai terbesar dari kedua bilangan adalah : ',e) else
     if e<dy then
        write('Nilai terbesar dari kedua bilangan adalah : ',dy);
end;
begin
     clrscr;
     textcolor(green);
     writeln('-###-PROGRAM SELEKSI-###-');
     writeln;
     max;
     readln;
end.

-------------------------------------------------------------------------


teman" bisa ambil dalam bentuk:
PAS  : download
EXE : download