program TestData;
uses
  Forms;

{$R *.RES}

var
    outfile:textfile;
    number,hi,lo,A:integer;
    name:string;
    Count : Integer ;

        Procedure Start;
        begin
            {
            initialize
            }
            A     := 0 ;
            hi    := 0 ;
            lo    := 32767 ;
            Count := 0 ;

            assignFile(outfile,'TestData.out');
            rewrite(outfile);
            write('What is your name?: ');
            readln(name);
            writeln(outfile,'This program was run by: ',name);
            writeln(outfile);
            repeat
                writeln('Enter your number: ',number);
                readln(number);
                
                
                if number < 0 then
                    break ;
                A := A + number;
                if number > hi then
                    hi := number;
                if number < lo then
                    lo := number ;
                Count := Count + 1
                
            until number<0;
            
            writeln(outfile,'The Highest number is :',hi);
            writeln(outfile,'The lowest number is : ',lo);
            writeln(outfile,'The average is: ',A DIV Count);  { truncates }
        end;


        Procedure Done;
        begin
            writeln(outfile,'This program was created by me');
            closefile(outfile);
        end;

begin
    Start;
    Done;
end.