Составить схему алгоритма и написать программу

program   pr1;
uses      crt;
const     WG=100;
type      tmasi=array[1..WG]of integer;
var       a,c:tmasi;
          n,i,k:byte;
          
procedure pro_vv_mas(var n:byte; var mas:tmasi);
var       kl,i:byte;
begin
     writeln('1-vvod, 2-sluchayno');
     readln(kl);
     if kl=2 then randomize;
     writeln('razmernot`');
     readln(n);
     for i:=1 to n do
     case kl of
     1:begin
            writeln('vvedi ',i,' element');
            readln(mas[i]);
       end;
     2:mas[i]:=random(50);
     end;
end;
 
procedure pro_out_mas(n:byte; mas:tmasi);
var       i:byte;
begin
     writeln('isxodni massiv');
     for i:=1 to n do write(mas[i]:6);
end;
 
procedure pro_sort_mas(n:byte; var mas:tmasi);
var       i:byte;
          cop:integer;
          pr:boolean;
begin
     pr:=true;
     while pr do begin
                      pr:=false;
                      for i:=1 to n-1 do
                      if mas[i]<mas[i+1]then begin
                                                  cop:=mas[i];
                                                  mas[i]:=mas[i+1];
                                                  mas[i+1]:=cop;
                                                  pr:=true;
                                             end;
                 end;
end;
 
begin
     pro_vv_mas(n,a); writeln('massiv:'); pro_out_mas(n,a);
     writeln;
     for i:=1 to n do if a[i]>=0 then begin
                                           k:=i;
                                           c[k]:=a[i];
                                      end;
     writeln('massiv c:');
     pro_out_mas(k,c);
     writeln;
     pro_sort_mas(k,c);
     writeln('otsortirovanni` massiv:');
     pro_out_mas(k,c);
end.

uses crt;
const nmax=100;
var a,c:array[1..nmax] of integer;
    n,m,i,j:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива A до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
writeln;
writeln;
m:=0;
for i:=1 to n do
if a[i]>0 then
 begin
  m:=m+1;
  c[m]:=a[i];
 end;
writeln('Массив С:');
for i:=1 to m do
write(c[i]:4);
writeln;
writeln;
for i:=1 to m-1 do
for j:=i+1 to m do
if c[i]<c[j] then
 begin
  x:=c[i];
  c[i]:=c[j];
  c[j]:=x;
 end;
writeln('Массив С после сортировки по убыванию:');
for i:=1 to m do
write(c[i]:4);
readln
end.