Составить программу, описывающую работу банкомата принимающего и выдающего платежи бумажными купюрами

program Bankomat;
uses utils;
const MaxN = 5;
 
type Mas = array [1..MaxN, 1..2] of longint;
 
var Babos: mas;
    Money: array [1..50] of longint;
    sum,i: longint;
    flag: boolean;
    
 
procedure Show (Num: longint; Money: Mas);
var i: longint;
begin
 ShowMessage ('Сумма выдана, чек не дадим :D ');
 writeln ('Количество выданных купюр - ', Num);
 for i:= 1 to MaxN do
  if Money[i,2] <> Babos[i,2] then
   begin
    writeln ('Количество выданных купюр, номиналом ', Money[i,1], ' = ', Babos[i,2]-Money[i,2]);
    Babos[i,2]:= Money[i,2];
   end;
end;
 
 
procedure GetSum (Sum, Num: longint; Money: Mas);
var i: longint;
begin
if (Sum = 0) and (flag = false) then
 begin
  flag:= True;
  Show (Num, Money);
  exit;
 end;
 
if (Sum <= 0) or (flag = true) then
 exit;
 
 
For i:= MaxN downto 1 do
 if Money[i,2] > 0 then
  begin
   Dec(Money[i,2], 1);
   GetSum (Sum-Money[i,1], Num+1, Money);
   Inc(Money[i,2], 1);
  end;
end;
 
 
function IsZero: boolean;
var i: longint;
begin
for i:= 1 to MaxN do
 if Babos[i,2]<>0 then
  begin
   IsZero:= false;
   exit;
  end;
IsZero:= true;
end;
 
 
begin
writeln ('Банкомат завершает свою работу, если нет ни одной купюры, либо введена отрицательная сумма для выдачи.');
writeln ('Введите ', MaxN ,' значений - сначала номинал, затем кол-во купюр этого номинала. ');
for i:= 1 to MaxN do
 read (Babos[i,1], Babos[i,2]);
 
While (not IsZero) do
 begin
 cls;
  writeln ('Какую сумму выдать?');
  readln (sum);
  Flag:= False;
  if sum < 0 then break;
  GetSum (Sum, 0, Babos);
  if Flag = false then
   ShowMessage ('Извините, недостаточно купюр.');
 end;
 
ShowMessage ('Банкомат завершил работу.');
end.