Compile and Execute Pascal Online

(*
 * Date: 03-29-2019

 * Course: CSCI-3010

 * Description: This program determines the winner of an election, given the total votes they have              received.This program also calculates the percentage of votes an individual candidate            received. The input are given in separate lines, number of candidates following the             last name of candidates following number of votes they received and so on. Our output            displays the input data(name and votes received) including the percentage of votes              they received, total votes received and the name of winner.
 
 * On my honor, I have neither given nor received unauthorized help while
   completing this assignment.
 
 * NAME AND CWID: Bijay Raj Poudel ( 30096130 )
 *)
Program ElectionResults(output);

//This program refers to unit 'sysutils'
Uses sysutils;

//global variables
var
    candidateNames: array of string;
var 
    listOfVotes: array of integer;

(*This function returns the percentage of fist parameter over the second parameter passed, i.e percentage of num1 in num2 *)
function percentage(num1, num2: integer): real;
    
    
    (* local variable declaration *)
    var
       result: real;
    
    begin
        result := ( num1/num2 ) * 100;
        percentage := result;
    end;




(*This function takes an integer array as parameter
 and returns the sum of all integers in thst array*)
function totalVotes(var anArray: array of integer): integer;
    var
        sum, count :integer;
    begin
        sum := 0;
        for count:= 1 to length(anArray) do
            begin
                sum := anArray[count] + sum;
            end;
    totalVotes :=  sum;     
    end;   
    


(*This function takes an integer array and return index of higest integer in
the array*)
function maxVote( var anArray: array of integer): integer;
    var
        highest, count: integer;
    begin
        highest := 1;
        
        for count := 1 to length(anArray) do
            begin
                if (anArray[count] > anArray[highest]) then
                highest := count;
            end;
    maxVote := highest;
    end;


(*This procedure formats the output and displays all the details about candidates, including the winner of the election*)
procedure toString();

    (*local variable declaration*)
    var
        fmt, fmtInt, fmtDeci: string;
    var
        count: integer;
        
    begin
        //initialising the formatting regualar expressioins
        fmt := '%35s';
        fmtInt := '%25d';
        fmtDeci := '%33f';
        
        writeln( 'Candidate' + format(fmt, ['Votes Received']) + format(fmt, ['% of Total Votes']) );
        
        for count:= 1 to length(listOfVotes) do
            begin
                fmt:='%-12s';
                writeln(format(fmt, [candidateNames[count]]), format(fmtInt, [listOfVotes[count]]), format(fmtDeci, [percentage(listOfVotes[count], totalVotes(listOfVotes))]));
            end;
            
        writeln(format(fmt, ['Total']), format(fmtInt, [totalVotes(listOfVotes)])); 
        writeln('The winner of the election is ', candidateNames[maxVote(listOfVotes)], '.');
    end;
    


(*This procedure uses the data from STDIN and stores it arrays*)
procedure userData();
   
   (* local variable declaration *)
    var 
        numberOfCandidates, count: integer;
        
    begin
        readln(numberOfCandidates);
        
        
        //setting array length
        SetLength(candidateNames, numberOfCandidates);
        SetLength(listOfVotes, numberOfCandidates);
        
        for count := 1 to 2*numberOfCandidates do
            begin 
                //storing the candidates details in respective arrays of their type.
                readln(candidateNames[count]);
                readln(listOfVotes[count]);
            end;
    end;

begin
    
    userData();  //procedure call to start the program
    toString();  //function call to display in candidate details and the winner.
end.