Датчика случайных чисео ввести 4 значения от -47 до 16. найти максимум и уменьшить на 5

Program p1;
var i,max:integer;
a:array[1..4] of integer;
begin
max:=-18;
randomize;
for i:=1 to 4 do a[i]:=random(63)-47;
for i:=1 to 4 do write(a[i],' ');
writeln;
for i:=1 to 4 do
begin
if a[i]>max then max:=a[i];
end;
write(max-5);
end.