Нужно сделать вывод результата программы в текстовый файл

uses crt;
type
car=record
fio,marka,num,color:string;
god:1950..2013;
starie:real;
end;
var
f1,f2:text;
x:array [1..50] of car;
i,n,s:integer;
cars:car;
f:text;
begin
assign(f1,'input.txt');
assign(f2,'out.txt');
rewrite(f2);
reset(f1);
read(f1,n);
for i:=1 to n do
with x[i] do
begin
writeln('Введите ФИО',i,' ');
read(fio);
writeln('Введите марку',i,' ');
read(marka);
writeln('Введите номер',i,' ');
read(num);
writeln('Введите год',i,' ');
read(god);
writeln('Введите цвет',i,' ');
read(color);
end;
clrscr;
writeln('------------------------------------------------------------------------');
writeln('|   ФИО   | Марка автомобился | год выпуска | Номер авто | Цвет кузова |');
writeln('------------------------------------------------------------------------');
for i:=1 to n do
with x[i] do
begin
writeln('|',fio:9,'|',marka:19,'|',god:13,'|',num:12,'|',color:13,'|');
writeln('------------------------------------------------------------------------');
end;
s:=2013-10;
writeln('Сведения об автомобилях, возраст которых больше 10 лет');
writeln('------------------------------------------------------------------------');
writeln('|   ФИО   | Марка автомобился | год выпуска | Номер авто | Цвет кузова |');
writeln('------------------------------------------------------------------------');
for i:=1 to n do
with x[i] do
begin
if god<s then
writeln('|',fio:9,'|',marka:19,'|',god:13,'|',num:12,'|',color:13,'|');
writeln('------------------------------------------------------------------------');
end;
close(f1);
close(f2);
end.