Дан массив из 9 целых чисел вывести на экран от 4-8 элементов массива

Program qq;
var i: integer;
m:array[1..10] of integer;
begin
for i:=1 to 10 do 
read(m[i]);
for i:=4 to 8 do
write(m[i],' ');
end.