Три вида циклов

uses
    Crt;
 
const
    n = 14;
 
type
    Rab = record //вместо этого можно создать массив [1..14, 1..2], но так ИМХО нагляднее
        plitka : Word;
        dni : Byte; //или Word
    end;
    TMass = Array[1..n] Of Rab;
 
var
    arr : TMass; //массив с данными
    i : Byte; //счётчик
    sumPl : LongWord = 0;
    sumDni : Word = 0; //или по аналогии LongWord
    cena : Single; //цена
 
begin
    ClrScr;
    repeat
        Write('Цена='); ReadLn(cena);
    until (cena > 0);
    for i := 1 to n do
        with arr[i] do
        begin
            WriteLn(i, '-ый работник:');
            Write('   Количество положенной плитки: '); ReadLn(plitka);
            Write('   Количество отработанных дней: '); ReadLn(dni);
            Inc(sumPl, plitka); Inc(sumDni, dni);
        end;
    WriteLn('Зарплата бригады: ', (cena * sumPl):0:2);
    WriteLn('Дневная производительность бригады: ', (sumPl / sumDni):0:2, ' в день');
    {i := 1;
    while (i <= n) do
    begin
        with arr[i] do
        begin
            WriteLn(i, '-ый работник:');
            Write('   Количество положенной плитки: '); ReadLn(plitka);
            Write('   Количество отработанных дней: '); ReadLn(dni);
            Inc(sumPl, plitka); Inc(sumDni, dni);
        end;
        Inc(i);
    end;}
    {i := 0;
    repeat
        Inc(i);
        with arr[i] do
        begin
            WriteLn(i, '-ый работник:');
            Write('   Количество положенной плитки: '); ReadLn(plitka);
            Write('   Количество отработанных дней: '); ReadLn(dni);
            Inc(sumPl, plitka); Inc(sumDni, dni);
        end;
    until (i = n);}
end.