файлы.

[Liлёк]

Написала программу, но она не работает. подскажите, пожалуйста, где я допускаю ошибку.
Нужно создать файл, где компонентой будет одномерный массив. каждую компоненту нужно рассортировать горкой и записать во второй файл. Создание , вывод файла и сортировку нужно организовать с помощью процедур.

uses crt; const n=10;m=5;
type mas=array[1..n] of integer;
a=mas;fil=file of mas;
var f1,f2:fil;
c,i,j:integer;
procedure sozd_file(var f:fil);
begin
rewrite(f);
for j:=1 to random(m)+3 do begin
for i:=1 to n do
a[i]:=random(100);
write(f,a); end;
end;
procedure viv_file(var f:fil);
begin
reset(f);
writeln;
while not eof(f) do
begin
read(f,a);
for i:=1 to n do write(a[i]:4);
writeln;
end;
end;
procedure sort_gork;
var c,i,j:integer;
begin
reset(f1);rewrite(f2);
while not eof(f1) do begin
read(f1,a);
for j:=1 to n do
for i:=1 to n-j do end;
if a[i]>a[i+1] then
i:=2;
repeat
for j:=n downto i+1 do
begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
end;
inc(i);
dec(j);
until i>j;
end;
begin
clrscr;randomize;
assign(f1,'f1 prim1.int');
assign(f2,'f2 prim1.int');
writeln('ishodn.file');
sozd_file(f1,a);viv_file(f1);
rewrite(f2);
sort_gork;viv_file(f2);
end.

[Ybn2]

В процедуре procedure sozd_file(var f:fil);и procedure viv_file(var f:fil);
Допиши Close (f);

[Liлёк]

спасибо, но от того что я добавила close(f) она работать не стала((

[Ybn2]

У тебя не хватает еще одной процедуры вывода массива! Сейчас напишу!

[Ybn2]

uses Crt;

const n=10;m=5;
type mas=array[1..n] of integer;
fil=file of mas;

var f1,f2:fil;
c,i,j:integer;
a:mas;

procedure sozd_file(name:String);
Var
f:Fil;
begin
assign(f,name);
rewrite(f);
  for j:=1 to random(m)+3 do
    begin
      for i:=1 to n do
        a[i]:=random(100);
          write(f,a);
    end;
  Close(f);
end;

procedure viv_file(name:String; Var a:mas);
Var f:File of Mas;
begin
assign(f,name);
reset(f);
writeln;
while not eof(f) do read(f,a);
end;

Procedure Vivod (a:mas);
Begin
WriteLn ('Вывод массива');
for i:=1 to n do write(a[i]:4);
writeln;
end;

procedure sort_gork (a:Mas);
var c,i,j:integer;
begin
  //Эта процедура не работает
end;

begin
clrscr
randomize;
writeln('ishodn.file');
sozd_file('prim1.int');
WriteLn ('Fail cozdan');
viv_file('prim1.int',a);

vivod (a);
ReadLn;

sort_gork;
vivod (a);
readLn;
end.

процедура сортировки не работает!

[Liлёк]

Спасибо)
А не могли бы вы мне еще подсказать каким способом можно рассортировать горкой?