Создать одномерный массив по правилу - Pascal

var
  a,b,c:array [1..100] of real;
   
  i,j,n:integer;
begin
  write('n=');
  readln(n);
  a[1]:=1;a[2]:=2;
  b[1]:=1;b[2]:=2;
  c[1]:=1;c[2]:=2; 
 writeln('Сумма 2 предыд. эл-тов|Сумма всех пред. эл-тов|Произв. номера и зн. пред. эл-та');
  for i:=1 to n do begin
    if i>2 then begin
      a[i]:=a[i-1]+a[i-2];
      c[i]:=i*c[i-1];
      for j:=1 to i-1 do b[i]:=b[i]+b[j];
     end;
    if i mod 20=0 then begin
      writeln;
      writeln('нажмите <Enter> для продолжения...');
      readln;   
     end;
    writeln(i:5,a[i]:17:5,'|',b[i]:23:5,'|',c[i]:32:5);
  end;
    
end.