Модуль. Из массива удалить отрицательные элементы, а затем оставшиеся элементы расположить в порядке убывания

uses mass;
var a:record
m,n,f,g:integer;
a,b: array [1..100] of integer;
end;
begin
vvod(a);
del(a);
sort(a);
vivod(a);
end.

unit mass;
interface
type
ra=record
m,n,f,g:integer;
a,b:array [1..100] of integer;
end;
procedure vvod(var x:ra);
procedure del(var x:ra);
procedure sort(var x:ra);
procedure vivod(x:ra);
var i,k,j:integer;
implementation
 
procedure vvod(var x:ra);
begin
write('Введите кол-во элементов: ');
read(x.n);
writeln('Ввод массива');
for i:=1 to x.n do
begin
write(i,'-ый элемент = ');
read(x.a[i]);
end;
end;
 
procedure del(var x:ra);
begin
x.g:=1;
for i:=1 to x.n do
    begin
    if x.a[i]>0 then
       begin
       x.b[x.g]:=x.a[i];
       x.g:=x.g+1;
       end;
    end;
x.g:=x.g-1;
end;
 
procedure sort(var x:ra);
begin
for i:=1 to x.g do
      for j:=1 to x.g-1 do
        if x.b[j]<x.b[j+1] then
        begin
          x.f:=x.b[j];
          x.b[j]:=x.b[j+1];
          x.b[j+1]:=x.f;
 
end;
end;
 
procedure vivod(x:ra);
begin
for i:=1 to x.g do
write(x.b[i], ' ');
writeln;
end;
begin
end.