Ввести ряд чисел и сформировать список элементов ряда,кратных 10 - Pascal

program MultipleNumbersOf10;
 
const
    N = 10;
    
var
    x, y: array [1..N] of integer;
    i, j: integer;
    
begin
    j:=0;
    for i:=1 to N do
    begin
        readln(x[i]);
        if x[i] mod 10 = 0 then
        begin
            inc(j);
            y[j]:=x[i];
        end;
    end;
    writeln;
    if j=0 then
        writeln('You have not typed any multiple number of 10.')
    else
    begin
        writeln('Your multiple numbers of 10:');
        for i:=1 to j do
        writeln(y[i]);
    end;
    readln();
end.