Использование процедур и функций

type
 tInf = record
  name, adres, num: string;
 end;
 
var
 f, fout: text;
 fname: string;
 i,n: integer;
 a: array [1..80] of tInf;
 
begin
 write('Vvedite imya faila: ');
 readln(fname);
 assign(f,fname);
 reset(f);
 write('Vvedite n: ');
 readln(n);
 
 for i:=1 to n do
  readln(f,a[i].name);
 for i:=1 to n do
  readln(f,a[i].adres);
 for i:=1 to 3 do
  readln(f,a[i].num);
 close(f);
 
 {vivod massiva v fail}
 
 assign(fout, 'out.txt');
 rewrite(fout);
 
 for i:=1 to n do
 begin
  writeln(fout,i,') FIO: ',a[i].name);
  writeln(fout,i,') Tel. nomer: ',a[i].num);
  writeln(fout,i,') Adres: ',a[i].adres);
  writeln(fout);
 end;
 close(fout);
end.

Program 9;
uses crt;
var f:file of real;
    n,i:integer;
    a,b,c,d:real;
begin
assign(f,'file');
rewrite(f);
write('skolko chisel zapisat v fail n=');
read(n);
for i:=1 to n do
 begin
  read(a);
  write(f,a);
 end;
writeln('ishodnii file:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
writeln;
for i:=1 to filesize(f)-2 do
 begin
  seek(f,i-1);
  read(f,a);
  seek(f,i);
  read(f,b);
  seek(f,i+1);
  read(f,c);
  d:=(a+b+c)/3;
  seek(f,i);
  write(f,d);
 end;
writeln('soderzanie izmemennogo faila:');
seek(f,0);
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
close(f);
end.