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

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

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.

Лишние переменные до добра не доводят, klem4

begin
   clrscr;
   InputArray(a);
   GetResultArray(a, b, GetMax(a));
   PrintArray(b, 'b');
   readln;
end.

Я почему-то передумал так делать ... сам не знаю почему

Причину - в студию... Может, я тоже передумаю?

Не знаю ... почему-то испугался ... проверять все было лень малоли какая-нибудь путаница прошлабы с переменными локальными, хотя врядли конечно ...вот от греха подальше решил сделать отдельно ...

я щас проверю и скажу