Напишите программу, которая сортирует массив, а затем находит максимальное из чисел, встречающихся в массиве несколько раз.

const n=20; var a:array[1 ... n] of integer; i, j, k:integer; begin Randomize; for i:=1 to n do begin a[i]:=Random (50); write (a[i]:4); end; writeln; for i : = 1 to n-1 do for j : = 1 to n-i do if a[j] < a[j+1] then begin k : = a[j]; a[j] : = a[j+1]; a[j+1] : = k end; for i:=1 to n do write (a[i]:4); writeln; i:=1; while (a[i]a[i+1]) and (i