Дисковые файлы. Ошибка PascalAbc

const
  a = -2;
  b = 2;
  dx = 0.2;
type rec=record
     p1,p3:string[2];
     p2,p4:real
     end;
var fl:file of rec;
    zap:rec;
    x,y:real;
begin
x:=a;
assign(fl,'typefl.typ');
reset(fl);
writeln('vmist typizovanogo file');
while not eof(fl) do
begin
    read(fl,zap);
    with zap do
    writeln(p1:5,p2:5:1,p3:7,p4:10:5);
    end;
    close(fl);
end.

const
  a = -2;
  b = 2;
  dx = 0.2;
 
type
  rec = record
    p1, p3: string[5];
    p2, p4: real
  end;
 
var
  fl: file of rec;
  zap: rec;
  x, y: real;
 
begin
  x := a;
  assign(fl, 'typefl.typ');
  rewrite(fl);
  zap.p1 := 'r=';
  zap.p3 := 'F(x)=';
  while x <= b + dx do
  begin
    if (-1 < x) and (x < 1) then y := sin(x) / (exp(x) + 1)
    else if x <= -1 then y := x * sqr(ln(abs(x)))
    else y := cos(sqr(x) + x - 1);
    zap.p2 := x;
    zap.p4 := y;
    write(fl, zap);
    x := x + dx;
  end;
  close(fl);
  writeln('typizov file stvoreno');
end.