Найти пару точек с максимальным расстоянием между ними

% ** настраиваем график для названий
   set(0, 'DefaultAxesFontSize', 18, 'DefaultAxesFontName', 'Times New Roman');
     set(0, 'DefaultTextFontSize', 18, 'DefaultTextFontName', 'Times New Roman');
% **
m = rand(5, 2);
x = m(:, 1);
y = m(:, 2);
figure
plot(x, y, '.', 'MarkerSize', 20);
grid on
      for i = 1:1:length(x)
         text(x(i), y(i), ['\leftarrow', num2str(i)],...
             'FontSize', 16, 'Color', 'r');
      end
[i, j] = size(m);
Comb = nchoosek(1:i, 2);
Sides = sqrt((x(Comb(:, 1)) - x(Comb(:, 2))).^2 + (y(Comb(:, 1)) - y(Comb(:, 2))).^2); % стороны
[~, l] = max(Sides);
max_length = Comb(l, :); 
max_length = [x(max_length(1)), y(max_length(1)); x(max_length(2)), y(max_length(2))];
hold on
plot(max_length(:,1), max_length(:,2), 'b--', 'MarkerSize', 20)
legend('исходные точки', 'Максимальное расстояние')