%u0417%u0430%u0434%u0430%u043D%u0438%u0435 %u0434%u043B%u044F %u0418%u0440%u0438%u043D%u044B 1b

program Tufta1bVer01;

const
  N = 50;

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

var
  A, Atest, B : Tmas; // массив с последовательностью и второй массив с результатом
  count, index : 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;
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 ind : integer) : integer;
var
  return : integer;
begin
  if (ind = 1) and (elem1 < elem2) then
  begin
    Inc (ind);
    return := elem1;
  end else
  begin
    ind := 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);
  index := 1;
  Mas2 (A, B, count, index);
  Output (B, count);
end.