Задание: Последовательность состоит изнатуральных чисел и завершается числом 0 Определите, Как узнать сколькоэлементов этой последовательности больше предыдущего элемента.Вводимые числа: 1,7,9,0. В ответе должно быть число: 2

Program n1;

type z= array of integer;

var a:z;

d,n,i,j,x: integer;

begin

n:=0;

while true do

begin

readln(d);

if d=0 then break;

n:=n+1;

setlength(a,n);

a[n-1]:=d;

end;

for i:=0 to n-2 do

for j:=i+1 to n-1 do

if a[i]<a[j] then begin

x:=a[i];

a[i]:=a[j];

a[j]:=x;

end;

writeln(a[1]);

end.