Составьте блок схему алгоритма проверки знания даты начала Великой Отечественной войны

Var
{вводим точки, записываем в переменную max расстояние до первой точки, а в переменную max2 - номер точки. Если расстояние до следующей точки меньше, чем до первой точки, то сохраняем новые значения в max и max2}
x1,y1,x2,y2,x3,y3,max,max2:real;
    begin
         readln(x1,y1,x2,y2,x3,y3);       
           max:=sqrt(sqr(x1)+sqr(y1));       
           max2:=1;     
               if sqrt(sqr(x2)+sqr(y2))<=max then     
                  begin       
                      max:=sqrt(sqr(x2)+sqr(y2));       
                      max2:=2;     
                  end;     
              if sqrt(sqr(x3)+sqr(y3))<=max then     
                   begin       
                     max:=sqrt(sqr(x3)+sqr(y3));       
                     max2:=3;     
                   end;     
writeln(max,' ',max2);     
end.

Const
  n = 10;

type
  Vector = array[1..n] of integer;

function SumDig(a: Vector): integer;
var
  i, m, d, s, max: integer;
begin
  s := 0;
  for i := 1 to n do
  begin
    m := a[i];
    max := -1;
    repeat
      d := (m mod 10);
      if max < d then max := d;
      m := m div 10
    until m = 0;
    s := s + max
  end;
  SumDig := s
end;

var
  i: integer;
  M: Vector;

begin
  Writeln('Введите ', n, ' чисел:');
  for i := 1 to n do Read(M[i]);
  Writeln('Сумма максимальных цифр всех чисел равна ', SumDig(M))
end.

Тестовое решение:
Введите 10 чисел:
613 269 839 10 575 569 812 56 401 616
Сумма максимальных цифр всех чисел равна 65