Обработка данных в типизированном файле.

uses crt;
const n=10;
{type mas=array[1..n] of integer;}
var
{a,b:mas;}
f:text;
i{,k,j,m,kol,s}:integer;
{sra:real;}
 
Procedure MASSIV;
type mas=array[1..n] of integer;
var
a,b:mas;
k,j,m,kol,s:integer;
sra:real;
begin
{\\\Чтение из текстового файла в массив///}
clrscr;
writeln('Исходный массив:');
reset(f);
i:=0;
while not seekeof(f) do
      begin inc(i);
            read(f,a[i]);
            write(a[i],' ');
      end;
{\\\Удаление повторяющихся чисел,
определение среднего арифметического оставшихся чисел
и его запись на первое место///}
k:=0;
for i:=1 to n do begin
   m:=0;
   for j:=1 to k do
       if (a[i]=b[j]) then
       inc(m);
       if m=0 then begin
       inc(k);
       b[k]:=a[i];
   end;
end;
s:=0;
kol:=0;
for i:=1 to k do begin
    s:=s+b[i];
    inc(kol);
end;
sra:=s/kol;
writeln;
writeln('Результат:');
write(sra:0:2,' ');
for i:=1 to k do
    write(b[i],' ');
    writeln;
end;
 
Procedure TIP_FILE;
var
f1:file of integer;
begin
{\\\Создание типизированного файла///}
assign(f1,'Tip_File.int');
rewrite(f1);
{\\\Чтение из текстового файла и запись в типизированный файл ///}
reset(f);
i:=0;
writeln('Даннные в типизированном файле:');
while not seekeof(f) do
      begin inc(i);
            read(f,i);
            write(f1,i);
            write(i,' ');
      end;
{\\\Удаление повторяющихся чисел,
определение среднего арифметического оставшихся чисел
и его запись на первое место///}
 
close(f1);
      end;
 
BEGIN
{\\\Создание и запись числовых данных в текстовый файл///}
assign(f,'File.txt');
rewrite(f);
for i:= 1 to n do
    repeat
         write(f,random(9));
         write(f,' ');
    until i=i;
 
MASSIV;
TIP_FILE;
close(f);
end.

uses crt;
const n=10;
var
f:text;
i:integer;
 
PROCEDURE MASSIV;
var
a:array[1..n] of integer;
j,k,m,summa:integer;
sr_a:real;
begin
{\\\Чтение из текстового файла в массив///}
clrscr;
writeln('Исходный массив:');
reset(f);
i:=0;
while not seekeof(f) do
      begin inc(i);
            read(f,a[i]);
            write(a[i],' ');
      end;
{\\\Удаление повторяющихся чисел, определение среднего арифметического оставшихся чисел и его запись на первое место///}
k:=0;
for i:=1 to n do
begin m:=0;
      for j:= 1 to k do
      if a[i]=a[j] then
      inc(m);
      if m=0 then
         begin inc(k);
               a[k]:=a[i];
         end;
end;
writeln;
writeln('Результат:');
summa:=0;
for i:=1 to k do
begin summa:=summa+a[i];
end;
sr_a:=summa/k;
write(sr_a:0:2,' ');
for i:=1 to k do
write(a[i],' ');
end;
 
PROCEDURE TIP_FILE;
var
f1:file of real;
data:integer;
begin
writeln;
writeln;
{\\\Создание типизированного файла///}
assign(f1,'Tip_File.int');
rewrite(f1);
{\\\Чтение из текстового файла и запись в типизированный файл ///}
reset(f);
writeln('Даннные в типизированном файле:');
while not seekeof(f) do
      begin read(f,data);
            write(f1,data);
            write(data,' ');
      end;
{\\\Удаление повторяющихся чисел, определение среднего арифметического оставшихся чисел и его запись на первое место///}
 
close(f1);
      end;
 
BEGIN
{\\\Создание и запись числовых данных в текстовый файл///}
assign(f,'File.txt');
rewrite(f);
for i:=1 to n do
    repeat
          write(f,random(9));
          write(f,' ');
    until i=i;
 
MASSIV;
TIP_FILE;
close(f);
end.