Дан массив строк. отсортировать строки по длине второго слова в строке в порядке убывания. гарантируется, что в каждой строке минимум два слова. под словом понимаем последовательность символов, ограниченную пробелами или концом или началом строки. между словами может быть несколько пробелов. в начала и конце строки могут быть пробелы. размер массива заранее задан константой n. используйте заголовок: procedure sort(var m: tmas); тип тmas задан как array[1..n] of string и может использоваться для описания параметров подпрограмм.

// pascalabc.net 3.2, сборка 1488 от 21.06.2017 // внимание! если программа не работает, обновите версию! begin   write('количество строк и столбцов в массиве: ');   var (n,m): =readinteger2;   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-50,50);   a.println(4); writeln(4*a.colcount*'-');   var b: =a.rows.selectmany(x-> x).where(x-> x> 0).toarray;   write('массив b: '); b.println end. пример количество строк и столбцов в массиве: 5 8 *** исходный массив [5,8] ***     1 -36 -40  31 -12  18    9 -19   -18 -32 -30  10    9 -19 -13 -11   49 -20  -9  40 -32  37    4  38   -1 -48 -43  -5  25  16  20  22   25 -39    1  -4 -26 -18  44 -49 массив b: 1 31 18 9 10 9 49 40 37 4 38 25 16 20 22 25 1 44

Program t_1;     const size=100;     var a: array[1..size] of integer; i,n: integer; procedure quicksort(m1,t1: integer);     var i1,j1,x1,w: integer;   begin    i1: =m1;     j1: =t1;     x1: =a[(m1+t1)div 2];     repeat      while a[i1]< x1 do inc(i1);       while a[j1]> x1 do dec(j1);       if i1< =j1 then            begin            w: =a[i1];                     a[i1]: =a[j1];               a[j1]: =w;                   inc(i1);                     dec(j1);               end      until i1> j1;       if m1< j1 then quicksort(m1,j1);       if i1< t1 then quicksort(i1,t1); end; begin    readln(n);     for i: =1 to n do        read(a[i]);     quicksort(1,n);     writeln(a[n]); end.