Delphi-Работа с файлами

[Susana]

Помогите,пожалуйста, вывести числа большие среднего арифметического.
Создать типизированный файл, в который записать n целых чисел. Найти среднее арифметическое. Из файла переписать все числа, большие среднего арифметического, в новый файл.
Составить две программы. Первая должна формировать файл. Вторая-считать данные из этого файла, выполнить соответствующие вычисления

код второй программы:

procedure TForm1.btn1Click(Sender: TObject);
const
  Fn = 'test.txt';
var
  F : file of Integer;
  Num,i,s : Integer;
  result:real;
begin
  AssignFile(F, Fn);
  Mmo1.Lines.Add( 'Содержимое файла:' );
  Reset(F);
  i:=0;
  s:=0;
  while not Eof(F) do begin
    Read(F, Num);
    i:=i+1;
    Mmo1.Lines.Add( IntToStr(Num) );
  end;
  Reset(F);
  while not Eof(F) do begin
    Read(F, Num);
      s:=s+Num;
  end;
  CloseFile(F);
    result:=s/i;
     Mmo1.Lines.Add( 'Cреднее арифметическое:' );
     Mmo1.Lines.Add(floattostr(result));
end;

[min@y™]

Создать типизированный файл

вместо file of Integer я б сделал потомка от TFileStream или TMemoryStream, добавив пару свойств и методов.

[Serge_Bliznykov]

Susana, я бы написал так:

procedure TForm1.btn1Click(Sender: TObject);
const
  F1Name = 'test.bin';
  FOutName = 'bigger.bin';
var
  F, F2 : file of Integer;
  Num,i,sum : Integer;
  aver:real;
begin
  AssignFile(F, F1Name);
  Mmo1.Lines.Add( 'Содержимое файла '+F1Name+' :' );
  Reset(F);
  i:=0;
  sum:=0;
  while not Eof(F) do begin
    Read(F, Num);
    i:=i+1;
    sum:=sum+Num;
    Mmo1.Lines.Add( IntToStr(Num) );
  end;
  CloseFile(F);
  if i=0 then Mmo1.Lines.Add('Файл пуст, среднеарифметическое посчитать нельзя!')
  else begin
     aver:=sum/i;
     Mmo1.Lines.Add( 'Cреднее арифметическое: ' + floattostr(aver) );
     
     // теперь запишем все числа больше среднеарифметического в новый файл
     AssignFile(F2, FOutName);
     Rewrite(F2);
     Mmo1.Lines.Add( 'Создаём новый файл '+FOutName );

     // откроем входной файл на чтение
     Reset(F);
     while not Eof(F) do begin
        Read(F, Num);
        if Num> aver then begin
           Mmo1.Lines.Add( 'Записываем число '+IntToStr(Num) );
           Write(F2, Num)
        end;
     end;
     Mmo1.Lines.Add( 'Закончили запись во второй файл.');
     CloseFile(F2) 
  end;
end;

А первую часть - программу для создания исходного файла Вы написали?