Среднее арифметическое

program rob;
var 
action:char;
name:string;
 
procedure show_file(name:string);
Var 
f:text;
s:string;
begin
 assign(f,name);
 if FileExists(name)=false 
 then begin writeln('файл не знайдено');
 exit; 
 end;
 reset(f);
 while not eof (f) do begin
   readln(f,s); 
   writeln(s);
 end;
 close(f);
end;
 
 
procedure new_information(name:string);
var f:text;
action:string;
Begin
   Assign(f,name);
   if FileExists(name)=false 
   then begin writeln('File does not exists'); 
   exit; 
   end;
   Append(f);
   
   writeln('вводьте текст. завершення-"close"');
   while true do
   begin
    readln(action);
    if action='close' then break;
    writeln(f,action);
   end;
   close(f);
end;
 
procedure new_file(name:string);
var f: Text;
begin
   Assign(f,name);
   Rewrite(f); 
   close(f);
   new_information(name);  
end;
 
procedure sr_ar(name:string);
 
Var
  Kol,Element,Summa:integer;
  f : file of integer;
  SrAriph : real;
begin
 
 assign(f,name);{связываем файловую переменную f с физическим файлом file.dat}
 reset(f);{открываем файл для чтения}
 Summa :=0;{обнуление суммы}
  Kol :=0;{обнуление количества элементов}
  
  while not Eof (f) do begin
      
      read(f,Element);{считываем из файла очередной элемент в переменную Element}
      Inc(Kol);{увеличиваем счетчик количества элементов файла}
      Inc(Summa, Element);{увеличиваем переменную Summa на Element}
    end;
  if Kol > 0 then 
    begin
      SrAriph := Summa/Kol;{вычисляем среднее арифметическое чисел}
      write('Среднее арифметическое элементов файла равно ', SrAriph:5:2);
    end
  else
      write('Файл пуст');
  close(f);{закрываем файл}
  readln;
end;
 
begin
while action<>'0' do
begin
writeln('1 створити файл');
writeln('2 показати файл');
writeln('3 нові данні');
writeln('4 знайти середнє арифметичне');
writeln('0 завершити сеанс');
readln(action);
 
if action<>'0' then begin  
 writeln('напишіть назву файлу');
 readln(name);
 name:=name+'.txt';
 
 end;
    case action of
     '1':begin new_file(name); 
     end;
     '2':begin show_file(name); 
     end;
     '3':begin new_information(name);
     end;
     '4':begin sr_ar(name);
     end;
end;
end;
end.

procedure sr_ar(name:string);
 
Var
Kol,el:integer;
f : text;
Sr: real;
begin
 
assign(f,name);{связываем файловую переменную f с физическим файлом file.dat}
reset(f);{открываем файл для чтения}
Kol :=0;{обнуление количества элементов}
 
while not (Eof (f)) do begin
 
read(f,El);{считываем из файла очередной элемент в переменную Element}
Inc(Kol);{увеличиваем счетчик количества элементов файла}
sr:=sr+el;{увеличиваем переменную Summa на Element}
end;
if Kol > 0 then 
begin
Sr := sr/Kol;{вычисляем среднее арифметическое чисел}
write('Среднее арифметическое элементов файла равно ', Sr:5:2);
end
else
write('Файл пуст');
close(f);{закрываем файл}
readln;
end;

procedure new_information(name:string);
var f:text;
action:string;
Begin
   Assign(f,name);
   if FileExists(name)=false 
   then begin writeln('File does not exists'); 
   exit; 
   end;
   Append(f);
   
   writeln('вводьте текст. завершення-"close"');
   while true do
   begin
    readln(action);
    if action='close' then break;
    writeln(f,action);
   end;
   close(f);
end;

uses crt;
procedure Sr_Ar(var f:text;name:string;var sr:real);
var k,a:integer;
begin
write('Imya faila: ');
readln(name);
name:=name+'.txt';
assign(f,name);
reset(f);
sr:=0;k:=0;
while not eof(f) do
 begin
  read(f,a);
  sr:=sr+a;
  k:=k+1;
 end;
sr:=sr/k;
end;
var t:text;
    s:string;
    srar:real;
begin
clrscr;
Sr_Ar(t,s,srar);
write('Srednee arifmeticheskoe=',srar:0:5);
readln
end.