Ребята, спасайте! Нужно решить 09.06.2014 до 10:30

[МаксПророк]

В среде программирования PascalABC.NET разработать и отладить программную систему на языке Object Pascal, в которую включить:
-модуль с 2-мя процедурами и функцией;
-программу для вызова процедур и вывода результатов на экран.
В модуле объявить и определить 2 процедуры и функцию.
1-x^2/x^3+x^4-6


В функции реализовать алгоритм
В процедуре №1 (Сохранение файла) выполнить:
-Открыть новый числовой файл
-Задать число вызовов функции
-Организовать цикл для вызова функции с разными значениями X.
-В цикле выполнить:
-Вызвать функцию
-Значение функции сохранить в числовом файле
-Закрыть файл

В процедуре №2 (Загрузка файла) выполнить:
-Открыть созданный файл
-Организовать цикл
-В цикле загрузить информацию из файла в массив.
-Выдать массив на экран.
-Вычислить контрольную сумму файла.
-Завершить цикл
-Закрыть файл

В программе выполнить:
-Подключить модуль
-Установить связь с файлом
-Вызвать процедуру сохранения файла
-Вызвать процедуру загрузки файла
-Выдать на экран результаты: контрольную сумму файла

Не уверен, что правильно, но вот модуль

Unit modtip1;
interface 
function f(x:real):real;
procedure N1(var n:integer; var name:string);
procedure N2(n:integer; name:string; var max:real);
implementation
function f(x:real):real;
begin
 f:=x-exp(3*ln(x))/3+exp(5*ln(x))/5;
end;  
procedure N1(var n:integer; var name:string);
var
 i:integer;
 a,b:real;
 g:file of real;
begin 
 name:='file.txt';
 assign(g,name);
 rewrite(g);
 read(n);
 for i:=1 to n do
 begin
  a:=100.0*random;
  b:=f(a);
  write(g,b);
  write(b:12:1)
 end;
 close(g);
end;
procedure N2(n:integer; name:string; var max:real);
var
 a:array [1..100] of real;
 i:integer;
 g:file of real;
begin 
 assign(g,name);
 reset(g);
 for i:=1 to n do
 begin
  read(g,a[i]);
  write(a[i]:8:2,' ');
 end;
 close(g);
 max:=a[1];
 for i:=1 to n do
  if a[i]>max then max:=a[i];
end;
begin
end.