Дан одномерный массив [-50: 50], нужно вывести числа больше 7, программа на паскаль

Var a:array[-50..50] of longint;i:longint;
Begin
for i:=-50 to 50 do
if (i>7) then write(i,' ');
writeln;
End.