Примеры комплектации компьютерного рабочего места в соответствии с целями его использования для профессии повар-технолог

Рассмотрим оба варианта.
Сог = 2, гл = 3.
Крейсер 16
Уловка 15
Электричество 31
Преподаватель 31
Молоко 15
Сог = 3, гл = 2
Крейсер 19
Уловка 15
Электричество 34
Преподаватель 34
Молоко 15

Если подсчитать символы, то
 2732101263310132 16
391002810039 12 
104281032127100 15
, 291032810327103 15

Подходит только первый вариант, слова соответственно  "крейсер", "шалаш",  "уловка",  "молоко" ИЛИ  "крейсер", "шалаш",  "молоко"  "уловка".,
 из первых двух слов:
 к = 27 р = 32 е = 101 й = 26 с = 33 ш = 39 а = 100 л = 28  
104281032127100 оканчивается на 100, то есть на а, значит это уловка 
у = 104 о = 103  
для роутера недостает буквы т. 
из порядка гласных (0 = 103, у = 104, а в алфавите у следующая гласная за о), понятно, что т = с+1 = 34
тогда роутер = 32 103 104 34 101 32 
 

Var max_i, max_j, j, columns, rows, i : integer;
arr: array[1..10,1..10] of integer;
Begin
  rows := random(8) + 2;
  columns := random(8) + 2;
  writeln(rows, columns);
 
  for i := 1 to rows do
    for j := 1 to columns do
      arr[i, j] := random(100);

  for i := 1 to rows do begin
    writeln();
    for j := 1 to columns do
      write(arr[i, j]:3);
  end;
  writeln();
  writeln();

  max_i:=1;
  max_j:=1;

  for i := 1 to rows do
    for j := 1 to columns do
      if arr[max_i, max_j] < arr[i, j] then begin
        max_i:=i;
        max_j:=j;
      end;

  for i := 1 to rows do
    if i <> max_i then
      arr[i, max_j] := 0;

  for j := 1 to columns do
    if j <> max_j then
      arr[max_i, j] := 0;

  for i := 1 to rows do begin
    writeln();
    for j := 1 to columns do
      write(arr[i, j]:3);
  end;
  writeln();
  writeln();
End.