Pascal/Turbo Pascal - Estudiante

necesito realizar la serie fibonacci en pscal, pero no se com declarar sub-indices..

alguien sabe como

gracias

No necesitas subindices para hacerlo (supongo que te refieres a Arrays).

Uses Crt;
Var
I : Longint;
Function Fib(N : Longint) : Longint;
Var
F1, F2 : Longint;
Begin
If N = 0 Then
Fib := 0
Else
If N = 1 Then
Fib := 1
Else
Begin
F1 := Fib(N - 1);
F2 := Fib(N - 2);
Fib := F1 + F2;
End;
End;
Var M, A : LongInt;
Begin
ClrScr;
ReadLn(A);
WriteLn;
For I := 0 To A + 1
Do Begin
WriteLn(Fib(I));
Delay(65535); Delay(65535);
End;
End.