В двухмерном массиве удалить строго доминируемые строки( строка называется строго доминируемой, если каждый её элемент будет меньше соответствующего элемента некоторой другой строки данного двухмерного массива ответ дать в виде блок-схемы.

Чувак, забей на эту херню, пошли в кс по ДС?

Объяснение:

Сначала надо избавиться от ошибок (пункт №3)
иначе не сможем выполнить 1 и 2 пункт задания.
  Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
  Исправляем N:N div 10; на N:= N div 10;
 
После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193

Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do

После всех исправлений код программы стал таким:
var
  N, k: integer;
begin
  readln(N);
  k := 9;
  while N > 10 do
  begin
    if (N mod 10 < k) then k := N mod 10;
    N := N div 10;
  end;
  write(k)
end.

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.