Дан одномерный массив [-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.