файлы(турбо паскаль)

[мария71]

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

program kkr2;

const
nmax=1000;
mmax=4;
type
mas=array [1..nmax,1..mmax] of real;
var
res:mas;
nach,con,shag,tochn:real;
arg,znach:real;
sch,nomer:integer;
{--------------------------------------------------------------}
Procedure Vvod(var a,b,h,e:real);
var
s: string;
er: integer;
begin
repeat
writeln ('Введите начало отрезка (a)');
write ('a=');
readln (s);
val (s,a,er);
if (er<>0) then writeln ('Вы ошиблись. Введите число');
until (er=0);
repeat
writeln ('Введите конец интервала (b). b должно быть>',a:3:3);
write ('b=');
readln (s);
val (s,b,er);
if (er<>0) then writeln ('Вы ошиблись. Введите число')
else
if (b<=a) then writeln ('Вы ошиблись.Конец отрезка должен быть >a');
until (er=0) and (b>a);
repeat
writeln ('Введите шаг (h); h>0');
write ('h=');
readln (s);
val (s,h,er);
if (er<>0) then writeln ('Вы ошиблись. Введите число')
else if (h<=0) then writeln ('Вы ошиблись. ˜ Шаг должен быть >0');
until (er=0) and (h>0);
repeat
writeln ('Введите точность вычислений (e; e>0)');
write ('e=');
readln (s);
val (s,e,er);
if (er<>0) then writeln ('Вы ошиблись. Введите число')
else if (e<=0) then writeln ('Вы ошиблись. Точность вычислений должна быть >0');
until (er=0) and (e>0);
end;
{--------------------------------------------------------------}
Procedure Schet(a,b,h,e:real; var x,y:real; var i,k:integer);
var
c:real;
j:integer;
begin
writeln ('No |x | f(x) | Номер члена ряда k, (k=1,2,3...)');
writeln ('---------------------------------------------');
i:=1;
x:=a;
repeat
k:=0;
c:=-1;
y:=0;
repeat
inc(k);
c:=c*((-1)*(sqr(x/2))/(sqr(k+1)));
y:=y+c;
until (ABS(c)<e);
res[i,1]:=i;
res[i,2]:=x;
res[i,3]:=y;
res[i,4]:=k;
i:=i+1;
x:=x+h;
until (x>b);
for j:=1 to i-1 do
writeln (res[j,1]:3:0,'|',res[j,2]:11:7,'|',res[j,3]:11:7,'',res[j,4]:3:0);
writeln;
end;
{--------------------------------------------------------------}
{Главная программа }
begin
Vvod( nach,con,shag,tochn);
writeln(Начало отрезка ',nach:4:2,'Конец отрезка ',con:4:2,'Шаг',shag:6:3,' Точность вычислений ',tochn:6:8);
Schet(nach,con,shag,tochn,arg,znach ,sch,nomer);
end.