Создать блок-схему по коду - Turbo Pascal

Формулировка задачи:

Пожалуйста, кто сможет довести блок-схему до ума. Текст программы:

var
  mas: array [1..100, 1..100] of integer;
  i, j, s, k, x, m, n: integer;
begin
  randomize;
  readln(m, n); //вводим количество строк и столбцов
  for i:= 1 to m do
    for j:= 1 to n do begin
      x := random(-1000, 1000); // генерируем число от -1000 до 1000
      if x > 0 then
        mas[i][j] := 1
      else if x < 0 then
        mas[i][j] := -1
      else
        mas[i][j] := -1;
    end;
  for i:= 1 to m do
    for j:= 1 to n do begin
      if (i mod 2 = 0) and (mas[i][j] = -1) then // считаем количество
        k := k + 1;
      if i < j then // считаем сумму
        s := s + mas[i][j];
    end;
  writeln(k);
  writeln(s);
end.

Решение задачи: «Создать блок-схему по коду»

Листинг программы

program lab_3
var M,n,i,k,l: integer;
  Begin
write('Введите число:');
readln(n);
M:=n;
for i:=1 to 6 do
begin
 k:=n mod 10;
 if k<1 then l:=k;
 n:=n div 10;
end;
M:=M div 10;
M:=M*10+1;
writeln (m);
End.

Объяснение кода листинга программы

Введенное пользователем число сохраняется в переменной n.
Переменная M инициализируется значением переменной n.
Запускается цикл, который выполняется 6 раз.
Внутри цикла переменная k получает остаток от деления n на 10.
Если k меньше 1, то переменная l получает значение k.
Значение переменной n делится на 10 и сохраняется в переменной n.
После завершения цикла значение переменной M вычисляется как целая часть от деления значения переменной n на 10, затем умножается на 10 и к нему добавляется 1.
Значение переменной M выводится на экран.