Дан массив из 10 целых чисел,проверить есть ли среди них число 1- Pascal(Паскаль)

const
  n = 10;

var
  i: integer;
  t: boolean;
  a: array [1 .. n] of integer;

begin
  for i := 1 to n do
  begin
    a[i] := random(20);
    write(' ', a[i]:3);
  end;
  writeln();
  writeln('-------');

  t := false;
  for i := 1 to n do
    if a[i] = 15 then
      t := true;
  if t then
    writeln('Есть')
  else
    writeln('Нет');

end.