Вопрос по информатике:

Массив a[1..10] заполните случайными целыми числами в диапазоне от 1 до 10. Определите, есть ли в массиве элемент, равный 5. Ответ выведите в виде слов "Да" или "Нет". В общем найдите мою ошибку(у меня выводится только 1 элемент, а не 10)
Program shist;
Var a:array[1..10] of integer;
i:integer;
Begin
For i:=1 to 10 do
a[i]:=Random(10)+1;
writeln ('Исходный массив');
For i:=1 to 10 do
begin
write (a[i], ' ');
writeln;
writeln ('Есть ли в массиве элемент, равный 5?');
break;
end;
if a[i]=5 then write ('Да') else write ('Нет')
End.
И вот что получилось
Исходный массив
7
Есть ли в массиве элемент, равный 5?
Нет