Перевод кода из Delphi в PascalABC.net

procedure TForm10.Button7Click(Sender: TObject);
const
  many: array [1 .. 6] of Integer = (5000, 1000, 500, 100, 50, 10);   // наименование купюр
var
  in_kol: array [1 .. 6] of Integer; // количество  заданных купюр
  out_kol: array [1 .. 6] of Integer;// количество потраченных купюр
  i, sum, tmp: Integer;
  s: string;
 
begin
// Очищаем массивы
  FillChar(in_kol, sizeof(in_kol), 0);
  FillChar(out_kol, sizeof(out_kol), 0);
// Сумма для выдачи
  sum := strtoint(Edit1.Text);
// Заполнение количество купюр через таблицу в порядке их наименования
  for i := 1 to 6 do
    in_kol[i] := strtointdef(StringGrid1.Cells[i - 1, 0], 100);
 
  tmp := 0;
//
  for i := 1 to 6 do
    begin
// Если таких купюр нет или Купюра больше суммы - пропускаем
      if (many[i] > sum) or (in_kol[i] <= 0) then
        continue;
 
      tmp := sum div many[i];
// Проверка на количество купюр и их выдача
      if tmp <= in_kol[i] then
 
        out_kol[i] := tmp
      else
        out_kol[i] := in_kol[i];
// Устанавливаем новое значения заданных купюр
      dec(in_kol[i], out_kol[i]);
// Уменьшаем сумму на число выданных купюр
      dec(sum, out_kol[i] * many[i]);
// Еслии раньше времени цикла закончили выдачу -выход
      if sum = 0 then
        break;
    end;
// Справка
  s := ' Выданнно: '#13#10;
  for i := 1 to 6 do
    if out_kol[i] <> 0 then
      s := s + 'Купюры по ' + inttostr(many[i]) + ' в количестве ' + inttostr(out_kol[i]) + ' шт.' + #13#10;
  if sum <> 0 then
    ShowMessage('Не возможно выдать заданную сумму. Только так '+ #13#10 +  s)
  else
    ShowMessage(s);
 
end;