Напечатать элементы файла f в следующем порядке: сначала – все числа, меньшие a, затем – все числа из отрезка

type
  PNode = ^TNode;
  TNode = record
    next: PNode; r: Real;
  end;
var
  f: file of Real;
  a, b, r: Real;
  ph, qh, p: PNode; pp, qq: ^PNode;
begin
  Assign(f,'input.dat'); Reset(f);
  Write('a, b: '); ReadLn(a,b); pp:=@ph; qq:=@qh;
  while not EoF(f) do begin
    Read(f,r);
    if r<a then WriteLn(r)
    else if r<=b then begin
      New(pp^); pp^^.r:=r; pp^^.next:=nil; pp:=@pp^^.next;
    end else begin
      New(qq^); qq^^.r:=r; qq^^.next:=nil; qq:=@qq^^.next;
    end;
  end;
  Close(f);
  while ph<>nil do begin
    WriteLn(ph^.r); p:=ph; ph:=ph^.next; Dispose(p);
  end;
  while qh<>nil do begin
    WriteLn(qh^.r); p:=qh; qh:=qh^.next; Dispose(p);
  end;
end.

var
  f: file of Real; r: Real; i: Integer;
begin
  Randomize;
  Assign(f,'input.dat'); Rewrite(f);
  for i:=1 to 20 do begin r:=100*Random; Write(f,r); Write(r:8:2); end;
  Close(f);
end.