Рациональные числа в файле

uses crt;
const n=20;
type rac=record
     chisl:integer;
     znam:integer;
     end;
var f:file of integer;
    q:rac;
    i,max,a,b:integer;
BEGIN
clrscr;
randomize;
Assign(f,'m:/tp7/bin/exe_2/file.dat');
{$I-}
Rewrite(f);
{$I+}
if IOResult=0 then
   begin
        for i:=1 to (n div 2) do
            begin
            q.chisl:=random(101)-random(101);
            q.znam:=1+random(100);
            write(f,q.chisl);
            write(f,q.znam);
            writeln(i,': ',q.chisl,'/',q.znam,'=',q.chisl/q.znam:3:3);
            end;
        Close(f);
 
        Reset(f);
        read(f,q.chisl,q.znam);
        a:=q.chisl; b:=q.znam;
        seek(f,2);
        i:=2;
        while not eof(f) do
              begin
              read(f,q.chisl,q.znam);
              if (a*q.znam-b*q.chisl)<0 then
                 begin
                 a:=q.chisl; b:=q.znam;
                 max:=FilePos(f)-2;
                 inc(i,2);
                 end
              else
                  max:=FilePos(f)-i;
              end;
        seek(f,max);
        read(f,a,b);
 
        writeln('Naibolshee znachenie: ',a,'/',b,' ');
        write('Nomera vsex komponent s naibolshim znacheniem: ');
        seek(f,0);
        while not eof(f) do
            begin
            read(f,q.chisl,q.znam);
            if (a=q.chisl)and(b=q.znam) then write(FilePos(f)-2,' ');
            end;
        writeln;
   end
else writeln('File not be found!');
Close(f);
readln;
END.

program EvgeniiSp;
uses crt;
const n=20;
type rac = record
            chisl:integer;
            znam:integer;
           end;
var 
 f: file of rac;
 q: rac;
 maximum: real;
 i,max,a,b: integer;
BEGIN
clrscr;
randomize;
maximum:=-100;
Assign(f,'d:file.dat');
Rewrite(f);
        for i:=1 to (n div 2) do
           begin
            q.chisl:=random(101)-random(101);
            q.znam:=1+random(100);
            write(f,q);
            writeln(i,': ',q.chisl,'/',q.znam,'=',q.chisl/q.znam:3:3);
           end;
        Close(f);
 
        Reset(f);
        while not eof(f) do
             begin
              read(f,q);
              if (q.chisl/q.znam) > maximum then
                begin
                 a:=q.chisl; b:=q.znam;
                 maximum:=q.chisl/q.znam;
                 max:=FilePos(f);
                end;
             end;
             
        writeln('Naibolshee znachenie: ',a,'/',b,' ');
        write('Nomera vsex komponent s naibolshim znacheniem: ');
        seek(f,0);
        while not eof(f) do
           begin
            read(f,q);
            if (q.chisl/q.znam) = maximum then write(FilePos(f),' ');
           end;
Close(f);
readln;
END.