Сумма ряда,типизированные/нетипизированные файлы.Delphi.

[assasin666]

Помогите, пожалуйста!

Программа1: найти сумму ряда с точностью e=0,001, общий член которого An(a энное) = ((-1)^(n-1))/n^n. Построить диаграмму.
Программа2: к программе 1 написать(или дописать) программу, которая будет выводить типизированные и нетипизированные файлы.

У меня есть работа, в которой обе задачи выполнены в одной программе, но проблема в том, она почему-то не выводит тип. и нетип. файлы, и еще мне нужно сделать так, чтобы было 2 отдельные программы, а не одна. Сделать этого не могу, потому что программист из меня, мягко говоря, никудышный.
Заранее спасибо за помощь.

Код:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Math, Series;

type
TForm1 = class(TForm)
Memo1: TMemo;
Chart1: TChart;
Button1: TButton;
Button2: TButton;
lbl1: TLabel;
brsrsSeries1: TBarSeries;
lbl2: TLabel;
Label1: TLabel;
Edit1: TEdit;
Button3: TButton;
Button4: TButton;
Button5: TButton;
RadioGroup1: TRadioGroup;
Label2: TLabel;
dlgSave1: TSaveDialog;
dlgOpen1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Memo1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
c,n :integer;
a, s, EPS:real ;
M : array[0..50] of Real;
fTe : TextFile;
fTy : file of Real;
fNT : file;
implementation
procedure TForm1.Button1Click(Sender: TObject);


begin
EPS:= StrToFloat(edit1.text) ;
n:=1;
a:=power(-1,n-1)/power(n,n);
s:=0;
c:=0;
while(Abs(a)>EPS) do
begin


s:=s+a;
a:=power(-1,n-1)/power(n,n);
M[c]:=a;
n:=n+1;
c:=c+1;
Chart1.SeriesList[0].AddY(A);
memo1.Lines.Add(FloatToStrF(a,ffGen eral,5,5));

end;
lbl2.caption := FloatToStrf(s,ffGeneral,5,5);
end;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Close;

end;



procedure TForm1.Button3Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex = 0 then begin
dlgSave1.DefaultExt := '*.txt';
dlgSave1.Execute;
AssignFile(fTe,dlgSave1.FileName);
Rewrite(fTe);
for c := 0 to n do
writeln (fTe, M[c]);
c:=c+1;
CloseFile(fTe);
end;
if RadioGroup1.ItemIndex = 1 then begin
dlgOpen1.Execute;
AssignFile(fTe,dlgOpen1.FileName);
Reset(fTe);
while not Eof(fTe) do
begin
Readln(fTe, c);
ShowMessage(FloatToStr(c));
end;
CloseFile(fTe);
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex = 0 then begin
dlgSave1.DefaultExt := '*.dat';
dlgSave1.Execute;
AssignFile(fTy,dlgSave1.FileName);
reset(fTy);
for c := 0 to n do
write (fTy, M[c]);
c:=c+1;
closefile(fTy);
end;
if RadioGroup1.ItemIndex = 1 then begin
dlgOpen1.Execute;
AssignFile(fType,dlgOpen1.FileName) ;
reset(fTy);
while not Eof(fTy) do
begin
Read(fTy, c);
ShowMessage(IntToStr(c));
end;
CloseFile(fTy);
end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex = 0 then begin
dlgSave1.DefaultExt := '*.dat';
dlgSave1.Execute;
AssignFile(fNT,dlgSave1.FileName);
rewrite(fNT);
for c := 0 to 98 do
BlockWrite (fNT, A[c], 1);
c:=c+1;
closefile(fNT);
end;

if RadioGroup1.ItemIndex = 1 then begin
dlgOpen1.Execute;
AssignFile(fT,dlgOpen1.FileName);
reset(fNT);
while not Eof(fNT) do
begin
BlockRead(fNT, c, 1);
ShowMessage(IntToStr(c));
end;
CloseFile(fNT);
end;
end;
end.