Определить, имеется ли заданное целое число x в массиве целых чисел — Pascal(Паскаль)

program srs;

uses crt;

var
  a: array [1 .. 100] of integer;
  i, n, s, k, x: integer;
  sr: real;
  f: boolean;

begin
  write('n=');
  read(n);
  randomize;
  writeln('Массив из случайных чисел:');
  for i := 1 to n do
  begin
    a[i] := random(13) - 3;
    write(a[i]:5);
  end;
  writeln;
  write('x=');
  read(x);
  f := false;
  for i := 1 to n do
    if x = a[i] then
    begin
      f := true;
      break;
    end;
  if f then
    writeln('число есть')
  else
    writeln('числа нет');

end.