Файлы

[Rikoshet]

Создать файл, где компонентой будет массив из N чисел. Рассортировать по возрастанию только положительные числа в каждой компоненте, при этом, отрицательные должны оставаться на своих местах. Рассортированные компоненты записать в новый файл. Компоненту с наибольшим количеством отрицательных чисел удалить из файла

Помогите пожалуйста доделать(исправить) код.

uses crt;
const n=10; L=5;
type mas=array[1..n] of integer;
var f1,f2:file of mas;
a,b,d:mas;
k,j,c,kotr:integer;
priz:boolean;


procedure SOZD;
var i,j:integer;
begin
randomize;
rewrite(f1);
for i:=1 to L do
begin for j:=1 to n do
a[j]:=random(100)-50;
write(f1,a);
end;
close(f1);
end;


procedure VIVODf1(t:string);
var j:integer;
begin
reset(f1);writeln(t);
while not eof(f1) do
begin read(f1,a);
for j:=1 to n do
write(a[j],' ');
writeln;
end;
end;

procedure VIVODf2(t:string);
var j:integer;
begin
reset(f2);writeln(t);
while not eof(f2) do
begin read(f2,a);
for j:=1 to n do
write(a[j],' ');
writeln;
end;
end;


BEGIN clrscr; randomize;
assign(f1,'lab4.mas');
assign(f2,'lab4(new).mas');
SOZD;VIVODf1('Ishodnik');
reset(f1);

while not eof(f1) do
begin
     read(f1,a);k:=1;kotr:=0;
      for j:=1 to n do
        if a[j]>=0 then begin
          b[k]:=j; inc(k) end;

begin
repeat
dec(k);
priz:=true;
for j:=1 to k do
if a[b[j]]>a[b[j+1]] then
begin
c:=a[b[j]];
a[b[j]]:=a[b[j+1]];
a[b[j+1]]:=a[b[j]];
priz:=false;
end;
until priz;



end;
end;

VIVODf2('Stalo');
close(f1);close(f2);





end.

[Rikoshet]

Есть тут люди, кто в файлах разбирается?