Сохранение

[MangoDGJ]

procedure TForm1.Button2Click(Sender: TObject);
var t,tt,ttt:textfile; y,g,a,b,n,h:real; o,i:integer;
begin
a:=-2; b:=5; n:=14; h:=(b-a)/n; i:=0;
Assignfile (tt,'e:\g(x).txt');
rewrite(tt);
while a<=b do
begin
g:=abs(sqr(a)-a-1);
writeln(tt,g);
a:=a+h;
i:=i+1;
end;
closefile(tt);
a:=-0.3;
Assignfile (t,'e:\y(x).txt');
rewrite(t);
while a<=b do
begin
if (a > 2) and (a > 1) then y:=Exp(a * (Ln(7)));
if a <= 1 then y := 2 * a - sin(a) else y := 10 * exp(a) + 4;
writeln(t,y);
a:=a+h;
end;
closefile(t);
Assignfile (ttt,'e:\yg.txt');
rewrite(ttt);
Reset(t);
readln(t);
Reset(tt);
readln(tt);
for o:=1 to i do
begin
readln(t,y);
readln(tt,g);
writeln(ttt,g-y);
end;
closefile(ttt);
end;

убил вечер но сделал спасибо всем

[Yurk@]

Сообщение от MangoDGJ

Работает но вот только записывает 1 последнюю где добавить чтобы записывал все по очереди.

вместо

Rewrite(f);

писать

Append(f);

перед этим нужно делать проверку на наличие файла, и если его нет - изначально создавать пустым.

[s-andriano]

Сообщение от MangoDGJ

Работает но вот только записывает 1 последнюю где добавить чтобы записывал все по очереди.

Замените rewrite на append.
Если хотите, чтобы файл начинался с новым запуском программы и не дописывал в результаты предыдущих запусков, добавьте в блок инициализации:
assign(...
rewrite(...
close(...