файл с числами

[Ostapov]

Cоздать типизированный файл из целых чисел, например: а1, а2, а3..аn. Получить файл содержащий те же числа в следующем порядке: а1, а2, а3, а2, а1, а4, а5, а6, а5, а4...

[Mad_Cat]

Создал, получил.
вот основная часть с выводом на экран

i:=1;
while i+2<=n do
begin
 for j:=i to i+2 do write(a[j]:6);
 for j:=i+1 downto i do write(a[j]:6);
 Inc(i,3);
end;