Программка на паскале Заполнить линейный массив по формуле c[i]=16*x-i/9-7

PROGRAM A23;
const
    max = 42;
var
    с:array[1..max]of real;
    x:integer;
    i:byte;

BEGIN
  writeln('Заполнить линейный массив по формуле c[i]=16*x-i/9-7');
  write('Введите x='); readln(x);
  writeln(' ');

  writeln('Массив' );
  for i:=1 to max do begin
    с[i]:=16*x - i/9 -7;
    write(с[i], ' ');
  end;
END.

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
  var x:=ReadInteger('x=');
  var c:=ArrGen(ReadInteger('Введите размер массива-gt;'), i-gt;16*x-(i+1)/9-7); c.Println;
  end.

Пример: 
x= 3
Введите размер массива-gt; 5
40.8888888888889 40.7777777777778 40.6666666666667 40.5555555555556 40.4444444444444