Надо составить-блок схему

Значения переменных А, В, С поменять местами так, чтобы оказалось
А>=В>=С. Переменные А, В, С заданы.

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace ConsoleApplication4
{
class Program
{
static void Main(string[] args)
{
double a, b, c, max=0, min=0, sr=0;
Console.Write("Enter a: ");
a = Convert.ToDouble(Console.ReadLine());
Console.Write("Enter b: ");
b = Convert.ToDouble(Console.ReadLine());
Console.Write("Enter c: ");
c = Convert.ToDouble(Console.ReadLine());

if ((a > b) && (a > c) && (b > c))
{

max = a;
min = c;
sr = b;
}

if ((a > b) && (a > c) && (b < c))
{

max = a;
min = b;
sr = c;
}

if ((a < b) && (a < c) && (b > c))
{

max = b;
min = a;
sr = c;
}

if ((a < b) && (a > c) && (b > c))
{

max = b;
min = c;
sr = a;
}

if ((a < b) && (a < c) && (b < c))
{

max = c;
min = a;
sr = b;
}

if ((a > b) && (a < c) && (b < c))
{

max = c;
min = b;
sr = a;
}

a = max;
b = sr;
c = min;

}

}
}

Program ToDec;

Uses crt;
var s:string;
n,l,i:integer;

function Pow(x,y:integer):integer;
begin
     if y>0 then Pow:=Pow(x,y-1)*x
               else Pow:=1;
end;

function ToDec(A : string) : integer;
var L : Byte;
begin
      if A = '' then ToDec := 0
                else begin
                              L := length(A);
                               case A[1] of
                                     '0' : ToDec := ToDec(Copy(A, 2, L - 1));
                                     '1' : ToDec := Pow(2, L - 1) + ToDec(Copy(A, 2, L - 1));
                                end;
     end;
end;

begin
     clrscr;
     write('Введите двоичное число: ');
     readln(s);
      writeln('Это число в десятичной системе : ', ToDec(S));
 readkey;
end.

Program ToDec;

Uses crt;
var s:string;
n,l,i:integer;

function Pow(x,y:integer):integer;
begin
     if y>0 then Pow:=Pow(x,y-1)*x
               else Pow:=1;
end;

function ToDec(A : string) : integer;
var L : Byte;
begin
      if A = '' then ToDec := 0
                else begin
                              L := length(A);
                               case A[1] of
                                     '0' : ToDec := ToDec(Copy(A, 2, L - 1));
                                     '1' : ToDec := Pow(2, L - 1) + ToDec(Copy(A, 2, L - 1));
                                end;
     end;
end;

begin
     clrscr;
     write('Введите двоичное число: ');
     readln(s);
      writeln('Это число в десятичной системе : ', ToDec(S));
 readkey;
end.