как выводить в типизированный файл?

[Irisk]

Пеpенести в хвост одномеpного массива пеpвый
отpицательный элемент.

Ввод с помощью типизированной константы
Вывод в типизированный файл.

uses crt;
var i,j,n,temp:integer;
const a:array[1..5] if integer(2,0,-5,-8,6);
begin
clrscr;
n:=5;
for i:=1 to n do
wrireln(a[i],' ');
for i:=1 to n do
if a[i]<0 then
for j:=i+1 to n do begin temp:=a[j];
a[j]:=a[j-1];
a[j-1]:=temp;
end;
for i:=1 to n do
write(a[i],' ');
readln;
end.

как выводить в типизированный файл?

[Serge_Bliznykov]

тема тут:
Пеpенести в хвост одномеpного массива пеpвый отpицательный элемент.

кросс-пост!
ЗАКРЫТО.