Господа помогите, плиз.
Необходимо во всех последовательностях положительных чисел изменить порядок элементов на противоположный
const
len = 21;
arr: array[1 .. len] of integer =
(1, 2, 3, 4, 5, -6, 7, 8, 9, 10,
11, 12, 13, -14, 15, 16, 17, 18, 19, 20, 21);
procedure print;
var i: integer;
begin
for i := 1 to len do
write(arr[i]:4);
writeln
end;
var
i, j, T: integer;
start, finish: integer;
begin
print;
i := 1;
while i <= len do begin
while(arr[i] < 0) and (i <= len) do inc(i);
start := i; finish := i;
while (arr[i] > 0) and (i <= len) do inc(i);
finish := pred(i);
for j := 1 to (finish - start) div 2 do begin
T := arr[pred(start + j)];
arr[pred(start + j)] := arr[succ(finish - j)];
arr[succ(finish - j)] := T;
end;
while(arr[i] < 0) and (i <= len) do inc(i)
end;
print;
end.