Блок-схема по программе

Program CoordinatesVector;
uses Crt;
const K = 3;
      L = 6;
type Mas = array [1..K, 1..L] of Integer;
     Vector = array [1..K] of Integer;
var Y: Mas;
    V: Vector;
    i, j: Byte;
Procedure Coordinates (Y: Mas; var V: Vector);
          var i: Byte;
               Function SumRow (Y: Mas; i: Byte): Integer;
                        var j: Byte;
                            Sum: Integer;
                        begin
                             Sum:= 0;
                             for j:= 1 to L do Sum:= Sum + Y[i, j];
                             SumRow:= Sum;
                        end;
               Procedure Swap (var X, Y: Integer);
                         var Save: Integer;
                             begin
                                  Save:= X;
                                  X:= Y;
                                  Y:= Save;
                             end;
          begin
               for i:= 1 to K do V[i]:= SumRow(Y, i);
               for i:= K downto 2 do if V[i] > V[i-1] then Swap (V[i], V[i-1]);
          end;
begin ClrScr;
      Randomize;
      for i:=1 to K do for j:=1 to L do Y[i, j]:= Random (50);
      Writeln (' =====Матрица=====');
      for i:=1 to K do
      begin
           Writeln;
           for j:=1 to L do Write (Y[i,j]:4);
      end;
      Coordinates (Y, V);
      Writeln;
      Writeln;
      Write ('Вектор, содержащий суммы элементов строк и отсортированный в порядке убывания элементов');
      for i:= 1 to K do Write ('(',V[i]:3,') ');
      Readkey;
end.