Написать программу, записывающую с помощью процедуры в типизированный файл значения функций на отрезке [0;1] с шагом h=0,1; с помощью другой процедуры происходит считывание данных значений из файла и вывод их на экран. Все эти процедуры содержатся в отдельно подключаемом модуле.y = (x + 1)2 (x+1 в квадрате)- Pascal(Паскаль)

unit tabul;
interface
type fail=file of real;
function Y(x:real):real;
procedure WriteFile(var g:fail;a,b,h:real);
procedure ReadFile(var g:fail);
implementation
function Y;
begin
Y:=sqr(x+1);
end;
procedure WriteFile;
var z:real;
    name:string;
begin
write('Имя файла: ');
readln(name);
assign(g,name);
rewrite(g);
while a<=b do
 begin
  z:=Y(a);
  write(g,z);
  a:=a+h;
 end;
close(g);
end;
procedure ReadFile;
var a:real;
begin
reset(g);
writeln('Содержание файла:');
while not eof(g) do
 begin
  read(g,a);
  write(a:5:2);
 end;
close(g);
readln
end;
end.

uses crt,tabul;
var t:fail;
begin
clrscr;
WriteFile(t,0,1,0.1);
ReadFile(t);
end.