Вывод данных в файл

program interpol;
uses crt;
const
MAXCOUNT=100;
type
per = array [0..MAXCOUNT] of real;
var
z:text;
X,y :per;
n,i :integer;
l,D,f :real;
label Lp, Lt;
procedure Enter(var X,y: per);
var
i: integer;
label mp;
begin
mp: for i:=0 to n do
begin
write('X[',i,'] = '); readln(x[i]);
write('y[',i,'] = '); readln(y[i]);
end;
for i:=0 to n-1 do
if x[i+1]-x[i]<=0 then
begin
writeln ('Ошибка. Измените данные');
goto mp
end;
end;
procedure Print(n: integer; X,y: per); var
i: integer;
begin
for i:=0 to n do
begin
write(x[i]:12:6);
end;
writeln;
for i:=0 to n do
begin
write(y[i]:12:6);
end;
writeln;
end;
Function Polinom(n: integer; d:real; X,y :per):real;
var
l:real;
k,i:integer;
p: real;
begin
L:=y[0];
P:=1;
for k:=1 to n do begin
P:=P*(D-X[k-1]);
for i:=0 to (n-k) do begin
Y[i]:=(y[i+1]-y[i])/(x[i+k]-x[i]);
end;
L:=L+P*y[0];
end;
POlinom:=l;
end;
begin
Assign(z,'C:/file.txt');
rewrite(z);
lp:clrscr;
writeln('Введите кол-во точек n(n=n+1)');
read(n);
Enter(X,y);
Print(n,X,y);
repeat
lt:Writeln('введите X (ot ',x[0]:4:2,' do ',x[n]:4:2,')');
read(d);
if d<x[0] then begin
writeln('Ошибка. x не может быть меньше ',x[0]:4:2);
goto lt; end;
if d>x[n] then begin
writeln('Ошибка. x не может быть больше ',x[n]:4:2);
goto lt; end;
writeln(Polinom (n,d,X,y):6:3);
writeln(z,polinom(n,d,X,y));
writeln ('Данные записаны в текстовый файл');
writeln('Найти значения для другой точки X?(ДА-1,НЕТ-0)');
read(f)
until f=0;
readkey;
close(z);
end.