%u041F%u043E%u0441%u043B%u0435%u0434%u043E%u0432%u0430%u0442%u0435%u043B%u044C%u043D%u043E%u0441%u0442%u0438 01

program Tufta1bVer01;

const
  N = 50;

type
  Tmas = array [1..N] of integer;

var
  A, Atest, B : Tmas; // массив с последовательностью и второй массив с результатом
  count, index1 : integer;

{процедура ввода}
procedure Input (var Ai : Tmas ; c : integer);
var
  j : integer;
begin
  for j := 1 to c do
  begin
    write ('Введите ',j,' число: ');
    readln (Ai[j]);
  end;
  Ai[c+1] := -32768;
end;

{процедура вывода}
procedure Output (Ai : Tmas; c : integer);
var
  j : integer;
begin
  writeln('последовательность:');
  for j := 1 to c do
  begin
    write (Ai[j],' ');
  end;
  writeln;
  writeln;
end;

{функция проверки условия}
function f(elem1, elem2 : integer; var index : integer) : integer;
var
  return : integer;
begin
  if (index = 1) and (elem1 < elem2) then
  begin
    Inc (index);
    return := elem1;
  end else
  begin
    index := 1;
    return := 0;
  end;
  f := return;
end;

{процедура создания нового массива}
function newMas (oldMas : Tmas; c : integer; var index : integer) : Tmas;
var
  j : integer;
  nMas : Tmas;
begin
  for j := 1 to c do
  begin
    nMas[j] := f(oldMas[j], oldMas[j+1], index);
  end;
  newMas := nMas;
end;

begin
  // пример для теста для этого заменить A на Atest и закомментировать Input
  Atest[1] := 3; Atest[2] := 4; Atest[3] := 5; Atest[4] := 2; Atest[5] := 2; Atest[6] := 3; Atest[7] := 1; Atest[8] := 5; Atest[9] := 7; Atest[10] := 3;
  write('Введите число членов последовательности: ');
  readln (count);
  Input (A, count);
  write('Исходная ');
  Output (A, count);
  index1 := 1;
  B := newMas(A, count, index1);
  write ('Итоговая ');
  Output (B, count);
end.