Процедуры и функции Опции

[KATYSHA]

По двум основным признакам оформляется программа в виде процедуры или функции:по признаку повторяемости и по признаку логичекой завершенности.
Дан вектор В вещественных чисел.Получить новый вектор,записав сначала элементы,расположенные после максимального эл-та,а затем компоненты,расположенные до максимального эл-та.

[klem4]

так подойдет ?

uses crt;
const
   n=10;
type
   TArray = array[1..n] of integer;

var
   a,b : TArray;

procedure InputArray(var x : TArray);
var
   i : byte;
begin
   for i := 1 to n do begin
      write('a[',i,']=');
      readln(x[i]);
   end;
end;

function GetMax(x : TArray) : byte;
var
   max,i : byte;
begin
   max := 1;
   for i := 2 to n do
    if x[i] > x[max] then
     max := i;
   GetMax := max;
end;

procedure GetResultArray(x : TArray; var y : TArray; max : byte);
var
   i,j : byte;
begin
   j := 0;
   for i := max to n do begin
      inc(j);
      y[j] := x[i];
   end;
   for i := 1 to max-1 do begin
      inc(j);
      y[j] := x[i];
   end;
end;

procedure PrintArray(x : TArray; name : char );
var
   i : byte;
begin
   writeln;
   for i := 1 to n do begin
       write(name,'[',i,']=');
       writeln(x[i]);
   end;
end;

var
   m : byte;
begin
   clrscr;
   InputArray(a);
   m := GetMax(a);
   GetResultArray(a, b, m);
   PrintArray(b, 'b');
   readln;

end.