Сгенерировать массив и записать в файл, отсортировать и записать в другой

const n=100;
type mas=array[1..n] of integer;
var a:mas;
b,h:word;
procedure zapovnenia(var a:mas);
var i :integer;
begin
randomize;
for i:=1 to n do
a[i]:=random(1000);
end;
procedure buble(var a:mas;var b,h:word);
var temp,z,y:integer;
begin
b:=0;h:=0;
for z:=1 to n-1 do
begin
for y:=n downto z+1 do
begin
b:=b+1;
if a[y]<a[y-1] then
begin
temp:=a[y];
a[y]:=a[y-1];
a[y-1]:=temp;
h:=h+1;
end;
end;
end;
end;
procedure vuvedenia(a:mas;b,h:word);
var t:integer;
begin
writeln('IIoPiBH9Hb= ',b);
writeln('IIEPECTAHOBOK= ',h);
for t:=1 to n do
writeln(a[t]);
end;
begin
zapovnenia(a);
buble(a,b,h);
vuvedenia(a,b,h);
readln;
end.

assign(f,parametr(1))

const n=100;
type mas=array[1..n] of integer;
var a:mas; f1,f2:text;
b,h:word;
 
procedure zapovnenia(var a:mas; pathf1:string);
var i :integer; f:text;
begin
AssignFile(f,pathf1);
Rewrite(f);
randomize;
for i:=1 to n do
begin
a[i]:=random(10);
write(f,a[i])
end;
closefile(f);
end;
 
procedure buble(var a:mas;pathf2:string; var b,h:word);
var temp,z,y:integer; f2:text;
  I: Integer;
begin
b:=0;h:=0;
AssignFile(f2,pathf2);
  Rewrite(f2);
  for I := 1 to n do
   write(f2,a[i]);
   writeln(f2);
for z:=1 to n-1 do
begin
for y:=n downto z+1 do
begin
b:=b+1;
if a[y]<a[y-1] then
begin
temp:=a[y];
a[y]:=a[y-1];
a[y-1]:=temp;
h:=h+1;
end;
end;
end;
for I := 1 to n do
   write(f2,a[i]);
   CloseFile(f2);
end;
procedure vuvedenia(a:mas;b,h:word);
var t:integer;
begin
writeln('IIoPiBH9Hb= ',b);
writeln('IIEPECTAHOBOK= ',h);
for t:=1 to n do
writeln(a[t]);
end;
begin
 
zapovnenia(a,'D:\C\1.txt');
buble(a,'D:\C\2.txt',b,h);
vuvedenia(a,b,h);
readln;
end.