program Lotto;

uses Crt;

function GetUserNumber : byte;
var
   x: byte;
begin
     read(x);
     result := x;
end;

function GetComputerNumber : byte;
var
   x: byte;
begin
     randomize;
     x := random(5) + 1;
     result := x;
end;

procedure GameStart(var money: integer);
var
   prize: byte;
   x: array[1..5] of boolean;
   counter: byte;
   usernumber: array[1..5] of byte;
   computernumber: array[1..5] of byte;
begin
     writeln;
     write('Please fill in your numbers (from 1 to 5) one at the time followed by an "Enter"');
     writeln;
     for counter := 1 to 5 do
         begin
              usernumber[counter] := GetUserNumber;
              while (usernumber[counter] < 1) or (usernumber[counter] > 5) do
                    begin
                         writeln('Please choose a number from 1 to 5');
                         usernumber[counter] := GetUserNumber;
                    end;
              computernumber[counter] := GetComputerNumber;
         end;
     ClrScr;
     counter := 0;
     writeln('Your Number    Computer`s Number');
     for counter := 1 to 5  do
              writeln(usernumber[counter], '              ', computernumber[counter]);
     counter := 0;
     for counter := 1 to 5 do
         begin
              if usernumber[counter] = computernumber[counter] then
                 x[counter] := true
              else
                 x[counter] := false
         end;
     if (x[1] = true) and (x[2] = true) and (x[3] = true) and (x[4] = true) and (x[5] = true) then
          begin
               prize := 5;
          end
     else if (x[1] = true) and (x[2] = true) and (x[3] = true) and (x[4] = true) then
          begin
               prize := 4;
          end
     else if (x[1] = true) and (x[2] = true) and (x[3] = true) then
          begin
               prize := 3;
          end
     else if (x[1] = true) and (x[2] = true) then
          begin
               prize := 2;
          end
     else if (x[1] = true) or (x[2] = true) or (x[3] = true) or (x[4] = true) or (x[5] = true) then
          begin
               prize := 1;
          end
     else
          begin
               prize := 0;
          end;

     money := money + prize;
     writeln('You have won ', prize, ' credit(s)!!! You now have ' , money , ' credits left.');
end;

var
   money: integer;
   act: byte;
begin
     money := 20;
     writeln('Welcome to Lotto! written in Dev-Pascal by XXXXXXXX!');
     writeln('You have 20 credits and every bet costs 2 credits.');
     writeln;
     act := 2;
     while (act <> 1) and (money > 1) do
     begin
          money := money - 2;
          writeln;
          writeln('You have ', money, ' credits left!');
          GameStart(money);
          writeln;
          writeln('Do you want to quit?');
          writeln('Type 1 to quit or 2 to continue');
          read(act);
          while (act > 2) or (act < 1) do
          begin
               writeln('This option is invalid, please choose 1 to quit or 2 to continue');
               read(act);
          end;
     end;
end.