Напишите программу, в которой сортировка выполняется методом камня- самый тяжелый элемент опускается в конец массива

1)2 детей переплывут первыми

2) 2 ой возвращается

3)забирает взрослого( сам высажевается

4)(взрослый высажевается)сын плывет за другим

5) они возвращаются

паскаль, одномерный массив

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.