Технический форум - Помогите с описанием

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите с описанием (http://www.tehnari.ru/f41/t96919/)

Помогите с описанием

Ребятки помогите доработать программу,
Требования
1) Программы должны обязательно содержать комментарии – как текст программы, так и все запросы по вводу данных к пользователю.
2) Выводы результатов должны быть информативными (не просто числовое значение) и в удобной для восприятия форме.
3) При запуске программы должно появляться краткое сообщение об ее назначении.
const n=2;
type mass= array[1..2*n] of Real;
function Big(aA: mass;ai: byte): Real;
var m: Real;
begin
if aA[ai]>aA[ai-1] then m:= aA[ai]
else m:= aA[ai-1];
Big:= m;
end;
var A,B: mass;
j,i: byte;
t: Real;
begin
for i:=1 to 2*n do
begin
Write('A[',i,':1]=');
Readln(A[i]);
end;
Writeln;
for i:=1 to 2*n do
Write(A[i]:5:1);
Writeln;
Writeln;
i:=2;j:=1;
repeat
t:= Big(A,i);
B[j]:= t;
Inc(i,2);
Inc(j)
until i>2*n;
for i:=1 to (j-1) do
Write(B[i]:5:1);
Readln;
end.

З.ы. Могу скинуть текст задачи, задавайте вопросы, отвечу.

Дан массив A(N), N - четное. Сформировать массив B(N), элементами которого являются большие из двух рядом стоящих в массиве A чисел. Например, массив А состоит из элементов 1 3 5 -2 0 4, тогда массив В: 3 5 4.

Пожалуй хватит хотя бы описания

Ладно, но только, уж извините, я эту программу весьма основательно "причесал": уж слишком много лишнего там наворочено.

Код:

const

 Nmax=20;    {Максимальная длина массива B}



function Big(Q1,Q2:real): Real; {функция выбора максимального из двух чисел}

begin

 if Q1>Q2 then Big:=Q1 else Big:=Q2;

end;



var  {Ввод переменных}

 A:Array[1..2*Nmax] of real;

 B:Array[1..Nmax] of real;

 i,n:byte;



Begin {Начало программы}

 Write('Число элементов массива B ');

 Readln(n);

 for i:=1 to 2*n do  {Цикл ввода исходного массива}

  begin

   Write('A[',i,']= ');

   Readln(A[i]);

  end;

 Writeln; {Отступ (пустая строка)}

 Writeln('Исходный массив:');

 for i:=1 to 2*n do {Вывод на экран исходного массива}

  Write(A[i]:5:1);

 Writeln; {Отступ (пустая строка)}

 Writeln; {Отступ (пустая строка)}

 for i:=1 to n do {Формирование массива B}

  B[i]:=Big(A[2*i],A[2*i-1]);

 Writeln('Новый массив:');

 for i:=1 to n do {Вывод на экран полученного нового массива}

  Write(B[i]:5:1);

 Readln {Приостановка выполнения программы с показом результата}

end. {Завершение программы}

Спасибо, друг мой)