Help in translating

[Beamish <019522b@axe.acadiau.ca>]

I need some help in doing this assignment. If anyone can answer this and
e-mail me back I'd really appreciate it. Thanks in advance.

Rewrite the following Modula-2 code in Ada:
MODULE Swap;
     IMPORT XIO;
     VAR this, that : INTEGER;
     PROCEDURE Exchange(VAR First, Second : INTEGER);
       VAR Temp : INTEGER;
       BEGIN
         Temp := First;
         First := Second;
         Second := Temp;
       END Exchange;
  BEGIN
     XIO.IntIn(this);
     XIO.IntOut(that);
     Exhange(this, that);
     XIO.IntOut(this, 1);
     XIO.IntOut(that, 1);
  END Swap.