Решить в паскале. задан массив а(1: 20). найти произведение всех его ненулевых элементов.

Program t1;
const
  n=20
var
  i, x, s : integer;
  t: string;
  m1: array [1..n] of integer;
begin
  s := 1;
  for i := 1 to n do
  begin
     x := m1[i];
     if (x <> 0) then s := s * x;
  end;
  writeln('ответ ',s);
end;
end.