Здравствуйте, возможно слишком просто, но у меня СЛИШКОМ начальный уровень

[green fox]

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

[Zis67]

program p;
uses crt;
var a:array [1..21] of integer;
var m,i,c,max,buf:integer;
begin
clrscr;
randomize;
for i:=1 to 21 do begin
a[i]:=random(50);
write(a[i],'я');
end;
for i:=1 to 21 do begin
c:=a[i-1];
if a[i]>c then begin
inc(buf);
if buf>max then begin
max:=buf;
m:=i;
end;
end else buf:=0;
end;
writeln;
writeln('Max chainlet ',max+1);
writeln('Begins with ',m-max, ' Ends at ',m)
;readln;
end.

[Smitt&Wesson]

Вопрос в прямом смысле жизни и смерти)

Ну ладно. В плане смерти - понятно, а в плане жизни?