Дан массив, образовать новый массив состоящий из элементов исходного заканчивающихся на цифру X — Pascal(Паскаль)

const n=9;
var
k,i,x:integer;
b,a: array [1..n] of integer;
begin
writeln('Vvedite x');
readln(x);
for i:=1 to n 
 do begin
        a[i]:=random(100);
        write(' ',a[i]);
        
    end;

k:=0;
for i:=1 to n do
  if (a[i] mod 10=x) then
    begin
      k:=k+1;
      b[k]:=a[i];
    end;
writeln();
writeln('Itogo');
for i:=1 to n 
do
  write(' ',b[i]);

writeln();
end.