Народ помогите, не могу понять в чем ошибка⁠⁠

program Pikabu;

const
z = 16; // Размер массива
var
a: array [1..z] of real;
N, i: integer;
b: real;
begin
N := 16;
b:=15;
cls;
for i := 1 to N do
begin
a[i] := 1.8 * b + 32;
writeln(b, ' градусов Цельсия = ', a[i]:4:1);
b := b + 1;
end;
end.
выкладываю конечную, вдруг кому пригадится