Program Fibonacci dengan Pascal

Assalamualaikum,
Uhmmm...ini salah satu program pascal untuk membuat deret fibonacci (0 1 1 2 3 5 8 ....) dengan metode array

Met Mencoba...^_^

Program Fibonacci;

uses crt;
var
fib : array[1..100] of integer;
k,s : integer;

begin
clrscr;
write('Masukan banyaknya deret : ');
readln(k);
for s:=0 to k do
begin
if s <= 1 then
begin
fib[s] := s;
write(fib[s]:3);
end
else
begin
fib[s] := fib[s-1] + fib[s-2];
write(fib[s]:3);
end;
end;
readln;
end.