Если в строке нет символа *, то оставить эту строку без изменения - Pascal

Формулировка задачи:

Помогите решить задачи 1)Найти сумму 10 членов ряда, в котором an=(n!)/n2. 2)Дана строка. Если в строке нет символа *, то оставить эту строку без изменения, иначе каждую из малых букв , предшествующую первому вхождению символа *, заменить на цифру 3. 3)Дано 100 целых чисел от 1 до 50. Определить, сколько среди них чисел Фибонач-чи. 4)Написать подпрограмму, которая преобразует последовательность чисел последовательность квадратов этих чисел. Заранее спасибо.

Решение задачи: «Если в строке нет символа *, то оставить эту строку без изменения»

Листинг программы

var
a,fib:array[1..100]of integer;
i,j,k,kol:integer;
begin
{заполняем массив числами}
writeln('Введите элементы массива');
for i:=1 to 100 do
read(a[i]);
{Ищем числа Фибоначчи и заносим их в массив}
fib[1]:=1;
fib[2]:=1;
k:=2;
repeat
k:=k+1;
fib[k]:=fib[k-1]+fib[k-2];
until fib[k]>=50;
{ищем количество чисел Фибоначчи в массиве}
for i:=1 to 100 do
  for j:=1 to k do
if a[i]=fib[j] then kol:=kol+1;
writeln(kol);
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Создаются переменные a и fib, которые представляют собой массивы целых чисел размером 100.
Выводится сообщение для ввода элементов массива.
С помощью цикла for считываются числа из ввода и сохраняются в элементах массива a.
Инициализируются первые два элемента массива fib равными 1.
Запускается цикл repeat, который продолжается до тех пор, пока fib[k] не станет больше или равно 50.
Внутри цикла repeat увеличивается значение переменной k на 1.
Вычисляется значение fib[k] как сумма fib[k-1] и fib[k-2].
Проверяется условие if a[i] = fib[j], где i и j - это индексы массива a и fib соответственно. Если условие истинно, то значение переменной kol увеличивается на 1.
По завершении цикла repeat выводится значение переменной kol, которое представляет собой количество чисел Фибоначчи в массиве a.