Ребятки помогите доработать программу,
Требования
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.
З.ы. Могу скинуть текст задачи, задавайте вопросы, отвечу.