Найти сумму элементов что не менее -5 и не более 20

program stv_file;
uses crt;
var f,f1:file of real;
x:real;
r:byte;
S:real;
begin
clrscr;
assign(f,'dan.dat');
REPEAT
{clrscr;}
writeln('GOLOVNE  MENU');
writeln('1- STVORENNA FILE');
writeln('2- PEREGLAD FILE');
writeln('3- DOPOVNENNA FILE');
writeln('4- VULYCHENNA Z FILE');
writeln('5- POCHUR MAX V FILE');
writeln('6- POCHUR MIN V FILE');
writeln('7- SYMA V FILE');
writeln('8- DOBYTOK V FILE');
writeln('0- VUXID');
writeln('Vkagute regum');
read(r);
case r of
 1:begin
   {$i-}
    rewrite(f);
   {$i+}
   if FileExists('dan.dat')=false
   then   begin
           write('файл вже існує');
           CLOSE(F);
           exit;
          end;
   writeln('припинення створення файлу - число 9999');
   repeat
    read(x);
    if x<>9999
    then write(f,x)
    else break;
   until false;
   writeln(' Файл створено');
   close(F);
  end;
 2:Begin
    {$i-}
    reset(f);
    {$i+}
    if FileExists('dan.dat')=false then
    begin
      write('файл не існує');
      CLOSE(F);
      exit;
    end;
   writeln('Вмістиме файлу');
   while not eof(f) do
    begin
     read(f,x);
     write(x:6:2,'  ')
    end;
   writeln(' Файл прочитано повністю');
   close(F);
end;
3:begin
   {$i-}
reset(f);
{$i+}
if FileExists('dan.dat')=false then
begin
write('файл не існує');
CLOSE(F);
exit;
end;
seek(f,filesize(f));
 writeln('припинення створення файлу - число 9999');
   repeat
    read(x);
    if x<>9999
    then write(f,x)
    else break;
   until false;
close(F);
end;
4:begin
  assign(f1,'dan1.dat');
  {$i-}
    rewrite(f1);
   {$i+}
   if FileExists('dan1.dat')=false
   then   begin
           write('файл вже існує');
           CLOSE(F1);
           exit;
          end;
   {$i-}
reset(f);
{$i+}
if FileExists('dan.dat')=false
then  begin
         write('файл не існує');
         CLOSE(F);
          exit;
      end;
writeln('Вмістиме файлу');
while not eof(f) do
 begin
  read(f,x);
  write(x:6:2,'VULYCHATU?(Y/N)');
  IF readkey='N' then write(f1,x);
 end;
 CLOSE(F);
 CLOSE(F1);
 ERASE(f);
 Rename(f1,'dan.dat');
end;
5:begin
   S:=0;
   {$i-}
    reset(f);
   {$i+}
   if FileExists('dan.dat')=false
   then begin
         write('файл не існує');
         CLOSE(F);
         exit;
        end;
   writeln('Вмістиме файлу');
   while not eof(f) do
    begin
     read(f,x);
     write(x:6:2,'  ');
     IF (s=0) OR (x>s) then s:=x;
    end;
  writeln('Максимальний в файлі ',s:6:2);
  close(F);
 end;
6:begin
   S:=0;
   {$i-}
    reset(f);
   {$i+}
   if FileExists('dan.dat')=false
   then begin
         write('файл не існує');
         CLOSE(F);
         exit;
        end;
   writeln('Вмістиме файлу');
   while not eof(f) do
    begin read(f,x);
     write(x:6:2,'  ');
     IF (s=0) OR (x<s) then s:=x;
    end;
  writeln('Мінімальний в файлі ',s:6:2);
  close(F);
 end;
7:begin
   S:=0;
   {$i-}
    reset(f);
   {$i+}
   if FileExists('dan.dat')=false
   then begin
         write('файл не існує');
         CLOSE(F);
         exit;
        end;
   writeln('Вмістиме файлу');
   while not eof(f) do
    begin
     read(f,x);
     write(x:6:2,'  ');
     s:=s+x;
    end;
  writeln('Сума =',s:6:2);
  close(F);
 end;
 8:begin
   S:=1;
   {$i-}
    reset(f);
   {$i+}
   if FileExists('dan.dat')=false
   then begin
         write('файл не існує');
         CLOSE(F);
         exit;
        end;
   writeln('Вмістиме файлу');
   while not eof(f) do
    begin
     read(f,x);
     write(x:6:2,'  ');
     s:=s*x;
    end;
  writeln('Добуток =',s:6:2);
  close(F);
 end;
0: exit;
end;
until false;
 
end.