Задача Pascal

[Serious]

Ребят, извините что сюда, но знаю что есть профи, которые дадут дельный совет... Вообщем задача паскаль, выручайте, горит...

Задача: "cоnst n=1000.var s: pacced array [1..n] of char. вывести те элементы массива s, индексы которых являются числами Фибоначчи(1,2,3,5,8..).описать процедуру."
Наброски:

cоnst n=1000;
type Myarray=array [1..n] of char;

procedure swap(s: Myarray);
var a1,a0,f:integer;
begin
f:=1;a1:=1; a0:=1;
while f<=1000 do
begin
write(a[f],' ');
f:=a1+a0;
a0:=a1;
a1:=f
end
end;

Главное описать процедуру...
Подскажите что неправильно, буду очень благодарен.

[unknowned]

Ребят, извините что сюда, но знаю что есть профи, которые дадут дельный совет... Вообщем задача паскаль, выручайте, горит...

Задача: "cоnst n=1000.var s: pacced array [1..n] of char. вывести те элементы массива s, индексы которых являются числами Фибоначчи(1,2,3,5,8..).описать процедуру."

Главное описать процедуру...
Подскажите что неправильно, буду очень благодарен.

А что тут описывать, пробегаем по каждому члену Фибоначчи и по значению каждого члена выбираем ячейку массива и выводим.
Вот и всё описание.