Блок вывода одномерного массива

В каком смысле? Хоть бы язык написали.

program massiv;

var a:array[1 ... 5]of byte;

i:byte;

begin

for i:=1 to 5 do readln (a[i]) ; {ввод массива пользователем}

... {какие-то действия с заданным массивом}

for i:=1 to 5 do write (a[i],' ') ; {вывод в строку, пробел - разделитель}

readln; {пустой readln чтобы можно было прочитать}

end.