вот мой вариант, но я думаю, что он вас скорее рассмешит. чем будет чем-л полезным, тем не менее,
.
uses
SysUtils;
var i,k:integer;
m:array[1..10] of real;
const d=5;
begin
for i:=1 to 10 do
begin
writeln('Type ',i,' element of array');
readln (m[i]);
end;
for k:=1 to 10 do
begin if m[k]>m[k+d] then m[k+d]:=m[k];