Модули Опции

[KATYSHA]

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

[volvo]

Ну, так в чем проблема разнести это по модулям? Например, так:
Файл module.pas

unit module;

interface

const nn=20;
Type  TVector=Array[1..nn] of Real;

Function GetVector(Var V: TVector): integer;
function GetMax(V: TVector; n: integer): Integer;
Procedure PrintVector(V: TVector; n: integer);


implementation

Function GetVector(Var V: TVector): integer;
var i, n: integer;
begin
  repeat
    write('vveditekolichvo elementov (ne bolee 20) n=');
    readln(n);
  until n<=20;

  writeln('vvedite elementi massiva');
  for i := 1 to n do begin
    write('a[',i,']='); readln(V[i]);
  end;
  GetVector := n;
end;

function GetMax(V: TVector; n: integer): Integer;
Var i, max: Integer;
begin
  max := 1;
  for i := 2 to n do
    if V[i] > V[max] then max := i;

  GetMax := max
end;

Procedure PrintVector(V: TVector; n: integer);
Var i: integer;
begin
  for i := 1 to n do
    writeln('a[',i,']=', V[i]:1:3);
end;

end.

Основная программа:

uses
  crt, module;
Var
  a, c: TVector;
  i, k, n, max: integer;
begin
  ClrScr;

  n := GetVector(a);
  max := GetMax(a, n);

  Writeln('naib-i element vectora a[',max,']=',a[max]:0:3);

  i := 0;
  for k := max + 1 to n do begin
    i := i + 1;
    c[i] := a[k];
  end;

  i := i + 1; c[i] := a[max];
  for k := 1 to max - 1 do begin
    i := i + 1;
    c[i] := a[k];
  end;

  writeln('novii vector:');
  PrintVector(c, n);
  readln;
end.