Розв’язок задачі з Абрамова №388

Всі умови | Умова: У квадратній цілочисельній матриці порядку 17 вказати індекси всіх елементів з найбільшим значенням. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №388)

program Pr388;
type
  TPoint = record
    x : byte;
    y : byte;
  end;

var
  M : array [1..17, 1..17] of byte;
  result : array[0..288] of TPoint;
  pos : integer;
  max : byte;
  i, j : integer;
begin
  // enter data to array
  randomize;
  for i := 1 to 17 do
  begin
    for j := 1 to 17 do
    begin
      M[i, j] := random(256);
      write(M[i, j], ' ');
    end;
    writeln('');
  end;

  pos := 0;
  max := 0;
  for i := 1 to 17 do
  for j := 1 to 17 do
  begin
    if (M[i,j] > max) then
    begin
      pos := 0;
      max := M[i, j];
    end;

    if (M[i,j] = max) then
    begin;
      result[pos].x := i;
      result[pos].y := j;
      inc(pos);
    end;
  end;

  writeln('------------------');
  writeln('Max: ', max);
  writeln('Result:');
  for i := 0 to pos - 1 do
    writeln(result[i].x,' x ', result[i].y);

  readln;

end.