Компонентой файла является запись из двух целых чисел m и n

uses crt;
type frac=record
          m,n:integer;
          end;
var f:file of frac;
    z:frac;
    i,n:integer;
    p,s,x,k:real;
begin
clrscr;
randomize;
assign(f,'file1');
rewrite(f);
write('Сколько компонент записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  z.m:=random(10)-5;
  z.n:=random(10)-5;
  write(f,z);
 end;
write('Введите x=');readln(x);
writeln(' m  n    p      x^');
reset(f);
k:=1;
s:=0;
for i:=filesize(f)-2 downto 0 do {от x^1 вперед}
 begin
  seek(f,i);
  read(f,z);
  if(z.m=0)or(z.n=0)then p:=0
  else p:=z.m/z.n;
  k:=k*x; {возводим х в степень}
  s:=s+p*k; {считаем сумму}
  writeln(z.m:2,'/',z.n:2,'=',p:6:2,' ',k:6:2);  {можно не выводить, для проверки}
 end;
seek(f,filesize(f)-1); {свободный член}
read(f,z);
if(z.m=0)or(z.n=0)then p:=0
else p:=z.m/z.n;
writeln;
s:=s+p;
close(f);
writeln(z.m:2,'/',z.n:2,'=',p:6:2,'   1.00');
write('S=',s:0:2);
readln
end.