Помогите с блок схемой (срочно)

[sergeyfsd]

завтра надо сдать срочно=( вот такая задачка:

program new;
 uses crt;
 type
  mas=array[1..20] of integer;
  var
  A:mas;
 procedure vvod(var A:mas);
 var
 i:integer;
 begin
 for i:=1 to 20 do
  begin
  A[i]:=random(20)-10;
  write(A[i]:3);
  end;
  writeln;
  end;
  procedure rech(var m:mas);
  var
  i:integer;
  begin
  for i:=1 to 20 do
  m[i]:=ABS(m[i]);
  end;
  procedure vivod(var A:mas);
  var
  i:integer;
  begin
  for i:=1 to 20 do
  begin
  write(A[i]:3);
  end;
  end;
  begin
  clrscr;
  Randomize;
  vvod(A);
  rech(A);
  Vivod(A);
  readln;
  end.
  i,j:integer;
  begin
    For i:=1 to n do begin
      For j:=1 to m do
        write(a[i,j]:5);
      writeln;
    end;
  end;

begin
  writeln('Vvedite razmernost'' matricy: ');
  readln(n,m);
  inp(n,m,a);
  writeln('Matrica do udaleniya stolbcov: ');
  out(n,m,a);
  writeln('Matrica posle udaleniya stolbcov: ');
  sear(n,m,a);
  out(n,m,a);
  readln;
end.

[puporev]

Блок-схема и небольшие замечания по коду во вложении.