Среди чисел 1, 2, 4, 8 найти первое большее к и вывести на экран

Var
a,b,c:integer;
d:array [1..4] of integer;
Begin
d[1]:=1;
d[2]:=2;
d[3]:=4;
d[4]:=8;
for a:=1 to 4 do
if d[a]>b then b:=d[a];
writeln('Большее число - ',b);
End.