%u0414%u043B%u044F %u0418%u0440%u044B ver2

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;

{процедура создания нового массива}
procedure Mas2 (oldMas : Tmas; var newMas : Tmas; c : integer; var index : integer);
var
  j : integer;
begin
  for j := 1 to c do
  begin
    newMas[j] := f(oldMas[j], oldMas[j+1], index);
  end;
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);
  Output (A, count);
  index1 := 1;
  Mas2 (A, B, count, index1);
  Output (B, count);
end.