Вводится массив чисел 20, максимальное значение 20. Необходимо определить количество чисел равных предпоследнему элементу этого массива — Pascal(Паскаль)

program pascal;
uses crt;
 
 
var
     matrix:  array [1..20] of integer ;
     etalon,i,n:integer;
 
 
begin
                randomize;
                        for i:=1 to 20 do
                        matrix[i]:=random(20);
                        clrscr;
                        Writeln ('poneslas');
 
 
 
etalon:=matrix[19];
n:=0;
 for i:=1 to 20 do
        begin
                if matrix[i] = etalon then
                        n:=n+1  ;
        end;
 Writeln ('paBHux ', n);
 writeln;
 
 
end.