Переделайте пожалуйста данную программу

program lab;
var a:array[1..100] of integer;
    f:text;
    n,i,j,x:integer;
    s:string;
begin
 
randomize;
assign(f,'massiv.txt');
rewrite(f);
write('n=');
readln(n);
writeln(f,'Ishodnyj massiv:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(' ',a[i]);
  write(f,' ',a[i]);
 end;
writeln;
reset(f);
readln(f,s);
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,a[n]);
 end;
close(f);
writeln('massiv is file');
for i:=1 to n do
write(' ',a[i]);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
append(f);
writeln(f,'');
writeln(f,'Massiv posle sortirovki:');
for i:=1 to n do
 begin
  write(' ',a[i]);
  write(f,' ',a[i]);
 end;
writeln;
close(f);
write('Massiv!');
readln
end.

program lab;
uses crt;
type mas=array[1..100] of integer;
Procedure Create(var f:text;var ms:mas; var n:integer);
var i:integer;
begin
assign(f,'massiv.txt');
rewrite(f);
write('n=');
readln(n);
writeln('Ishodnyj massiv:');
writeln(f,'Ishodnyj massiv:');
for i:=1 to n do
 begin
  ms[i]:=random(50);
  write(' ',ms[i]);
  write(f,' ',ms[i]);
 end;
writeln;
end;
procedure ReadFile(var f:text;var ms:mas; var n:integer);
var i:integer;
    s:string;
begin
reset(f);
readln(f,s);
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,ms[n]);
 end;
close(f);
writeln('massiv is file');
for i:=1 to n do
write(' ',ms[i]);
writeln;
end;
procedure Sort(var ms:mas;n:integer);
var i,j,x:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if ms[i]>ms[j] then
 begin
  x:=ms[i];
  ms[i]:=ms[j];
  ms[j]:=x;
 end;
end;
procedure AppFile(var f:text;ms:mas;n:integer);
var i:integer;
begin
append(f);
writeln(f,'');
writeln('Massiv posle sortirovki:');
writeln(f,'Massiv posle sortirovki:');
for i:=1 to n do
 begin
  write(' ',ms[i]);
  write(f,' ',ms[i]);
 end;
writeln;
close(f);
write('Programma vypolnena!');
readln
end;
var a:mas;
    g:text;
    n:integer;
begin
clrscr;
randomize;
Create(g,a,n);
ReadFile(g,a,n);
Sort(a,n);
AppFile(g,a,n);
end.