Создание приложений для обработки массивов

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
const
  N = 5; //Количество различных типов деталей.
var
  WareHouse : array[1..N] of Word; //Запасы делатей на складе.
  Detail : array[1..N] of Word;    //Потребность в делаталях для сборки одной машины.
  {Счётчик для циклов; количество машин, на которое хватает деталей всех типов;
  количество машин, на которое хватает деталей одного типа.}
  i, Cnt, CntTmp : Word;
  S : String;
begin
  {Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  Если после переключения русские буквы показываются неверно,
  следует открыть системное меню консольного окна - щелчком мыши в левом
  верхнем углу окна консоли и выбрать:
  Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".}
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('----------');
    Writeln('Задайте сведения о запасах деталей на складе:');
    for i := 1 to N do
    begin
      Writeln('Количество деталей типа ', i, ':');
      Readln(WareHouse[i]);
    end;
    Writeln('Задайте сведения о затратах деталей на сборку одного автомобиля:');
    for i := 1 to N do
    begin
      Writeln('Количество деталей типа ', i, ':');
      Readln(Detail[i]);
    end;
 
    Cnt := WareHouse[1] div Detail[1];
    for i := 1 + 1 to N do
    begin
      CntTmp := WareHouse[i] div Detail[i];
      if CntTmp < Cnt then
        Cnt := CntTmp;
      if Cnt = 0 then
        Break;
    end;
 
    Writeln('Запасов деталей на складе хватает для производства ', Cnt, ' машин.');
    Write('Повторить - Enter. Выход - любой символ + Enter. ');
    Readln(S);
  until S <> '';
end.