Как иначе можно решить эту задачу, например, с использованием цикла for?

Для реализации с использованием цикла for можно переписать программу следующим образом: for i:=1 to n do if a[i]=иск then writeln('Элемент найден: ', a[i]) else writeln('Элемент не найден').