Описать и вывести массив с переменой, Pascal

[marinashizya]

в МАССИВЕ ИЗ 15 ЭЛЕМЕНТОВ НАЙТИ МИНИМАЛЬНЫЙ ИЗ ЭЛЕМЕНТОВ КРАТНЫХ 3 И ИЗ ВСЕХ ЭЛЕМЕНТОВ НАХОДЯЩИХСЯ ДО НЕГО ОБРАЗОВАТЬ ОДНОМЕРНЫЙ МАССИВ. КАК ЭТО МОЖНО СДЕЛАТЬ У МЕНЯ ПОСТОЯННО ВЫСВЕЧИВАЮТСЯ ОШИБКИ

[tig81]

1. ОТКЛЮЧИТЕ CAPS LOCK, слепых нет
2. Показывайте код и какие ошибки выдает

[marinashizya]

ошибка 133

[tig81]

2. Показывайте код

[marinashizya]

а как он выглядит

[tig81]

текст программы показывайте

[marinashizya]

Program P1;
var a:array[1..15] of integer ;
b:array[1..f-1] of integer ;
 i,d,f : integer;
begin for i:=1 to 15 do readln (a);
if a mod 3=0 then begin d:=a; f:=i end;
for i:=i to 15 do if (a mod 3=0) and (a<d) then
begin d:=a; f:=i end;
for i:=1 to f-1 do writeln (b);
writeln ('d=',d)
end.

[wital1984]

1) b:array[1..f-1] of integer ; - так писать нельзя, f -  необъявленная переменная. лучше уж описать новый массив, как и старый от 1 до 15 и не важно, что у нас будет меньше элементов
2) if a mod 3=0 then begin d:=a; f:=i end; тут вы проверяете на кратность 3-м только первый элемент массива. А если первый не подходит? тут лучше использовать цикл while.
3) begin d:=a; f:=i end; тут нужно задать значение нового массива b , а то он у вас получается пустой