ПАСКАЛЬ ИНФОРМАТИКА for i:=1 to n-1 do
begin imax:=i;
for j:=i+1 to n do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a [imax]:=x
Какое действие выполняет приведенный выше фрагмент программы?

PascalABC.NET 3.2, сборка 1387 от 20.02.2017
Внимание! Если программа не работает, обновите версию!

//const
//  MAX_ROW=5;
//  MAX_COL=8;
begin
  var a:=MatrRandom(MAX_ROW,MAX_COL,10,99); a.Println(3);
  (var imax, var jmax, var imin, var jmin):=(0,0,0,0);
  for var i:=0 to MAX_ROW-1 do
    for var j:=0 to MAX_COL-1 do
      if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j)
      else
        if a[i,j]<a[imin,jmin] then (imin,jmin):=(i,j);
  for var i:=0 to MAX_ROW-1 do Swap(a[i,jmax],a[i,jmin]);
  Writeln('-'*3*MAX_COL); a.Println(3)
end.

Для проверки работы программы снимите комментарии с первых трех строк.

Using System;

internal class Program
{
    private static void Main()
    {
        Console.WriteLine(DoSomeThing("Как тебе живется", "цчхб"));
        Console.WriteLine(DoSomeThing("Как тебе живется", "цчх"));
        Console.WriteLine(DoSomeThing("Как тебе живется", "цчхи"));
        Console.WriteLine(DoSomeThing("Как тебе живется", "цчахбаек"));
        Console.WriteLine("Программа оконченна");
        Console.ReadKey();
    }

    private static string DoSomeThing(string st1, string st2)
    {
        Console.WriteLine();
        //Console.WriteLine($"{st1} -  {st2}");
        var i = 0;
        for (var j = 0; j < st1.Length; j++)
        {
            //Console.WriteLine($"st1[{j}] = {st1[j]} {!st2.Contains(st1[j].ToString())}");
            if (!st2.Contains(st1[j].ToString())) continue;
            i = j;
            break;
        }
        if (i == 0) return "Нет совпадений";

        var s = st1.LastIndexOf(" ", i, StringComparison.Ordinal) > 0
            ? st1.Substring(0, st1.LastIndexOf(" ", i, StringComparison.Ordinal))
            : "";
        s = s +
            (st1.IndexOf(" ", i, StringComparison.Ordinal) > 0
                ? st1.Substring(st1.IndexOf(" ", i, StringComparison.Ordinal))
                : "");
        return "Искомый символ - " + st1[i] + "\n" + s.Trim();
    }
}