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

[йцуйцу]

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

Ребятки помогите доработать программу,
Требования
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);
end;
Writeln;
for i:=1 to 2*n do
Write(A: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:5:1);
Readln;
end.

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

 

[йцуйцу]

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

 

[йцуйцу]

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

 

[Vladimir_S]

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

const
 Nmax=20;    [COLOR=Red][B]{Максимальная длина массива B}[/B][/COLOR]

function Big(Q1,Q2:real): Real; [COLOR=Red][B]{функция выбора максимального из двух чисел}[/B][/COLOR]
begin
 if Q1>Q2 then Big:=Q1 else Big:=Q2;
end;

var  [COLOR=Red][B]{Ввод переменных}[/B][/COLOR]
 A:Array[1..2*Nmax] of real;
 B:Array[1..Nmax] of real;
 i,n:byte;

Begin [COLOR=Red][B]{Начало программы}[/B][/COLOR]
 Write('Число элементов массива B ');
 Readln(n);
 for i:=1 to 2*n do  [COLOR=Red][B]{Цикл ввода исходного массива}[/B][/COLOR]
  begin
   Write('A[',i,']= ');
   Readln(A[i]);
  end;
 Writeln; [COLOR=Red][B]{Отступ (пустая строка)}[/B][/COLOR]
 Writeln('Исходный массив:');
 for i:=1 to 2*n do [COLOR=Red][B]{Вывод на экран исходного массива}[/B][/COLOR]
  Write(A[i]:5:1);
 Writeln; [COLOR=Red][B]{Отступ (пустая строка)}[/B][/COLOR]
 Writeln; [COLOR=Red][B]{Отступ (пустая строка)}[/B][/COLOR]
 for i:=1 to n do [COLOR=Red][B]{Формирование массива B}[/B][/COLOR]
  B[i]:=Big(A[2*i],A[2*i-1]);
 Writeln('Новый массив:');
 for i:=1 to n do [COLOR=Red][B]{Вывод на экран полученного нового массива}[/B][/COLOR]
  Write(B[i]:5:1);
 Readln [COLOR=Red][B]{Приостановка выполнения программы с показом результата}[/B][/COLOR]
end. [COLOR=Red][B]{Завершение программы}[/B][/COLOR]

 

[йцуйцу]

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