HOW TO FIX THIS IN ADA?

["Munir Albeelbisi" <munir.albeelbisi@sympatico.ca>]

with Ada.Text_IO; use Ada.Text_IO;

PROCEDURE  Random(Output) IS ;
    seed1 = 5; seed2 = 10000; seed3 = 3000;
        x, y, z : integer;
        looop : integer;
    FUNCTION   Unif return real is
        tmp : real;
        Begin
        x := 171*(x mod 177) - 2*(x div 177);
        if x<0 then x := x + 30269;
        y := 172*(y mod 176) -35*(y div 176);
        if y<0 then y := y + 30307;
        z := 170*(z mod 178) -63*(z div 178);
        if z<0 then z := z + 30323;
        tmp :=  x/30269.0 + y/30307.0 + z/30323.0;
        Unif := tmp - trunc(tmp);
        End;  {Unif}
    BEGIN
    x := seed1; y := seed2; z := seed3;
    for looop := 1.. 1000 loop
        writeln(loop:4, ' ==> ', unif:7:5);
    END loop;
  END unif;