Процедуры в паскале

[swedalena]

Помогите найти ошибку :

Program pr_5;
uses crt;
type
  array1=array[1..8] of real;
procedure ps(n1,n2:integer;k1,k2,k3:real;a:array1;var s:real; var q:integer);
var
 i:integer;
begin
 s:=0;
 q:=0;
 for i:=n1 to n2 do
  begin
  s:=s+exp(k3*ln(k1*a[i]+k2));
  q:=q+1;
 end;
end;
 const
 a:array1=(1,2,3,7,3.6,8,9,2);
var
  r1,r2,r3,y:real;
  q1,q2,q3:integer;
begin
  clrscr;
  ps(1,8,3,a,r1,q1);
  ps(1,8,2.4,3,a,r2,q2);
  ps(1,5,1.5,0.8,3,a,r3,q3);
  y:=r1+r2+r3;
  writeln('y=',y:9:3);
  writeln('q1=',q1:3,'q2=',q2:3,'q3=',q3:3);
end.

[Roof]

procedure ps(n1,n2:integer;k1,k2,k3:real;a:ar ray1;var s:real; var q:integer);

В этой строке a:ar ray1; синтаксическая ошибка.
a:array1; надо

ps(1,8,3,a,r1,q1);
ps(1,8,2.4,3,a,r2,q2);

а тут количество параметров не соответствует

[swedalena]

ps(1,8,3,a,r1,q1);
ps(1,8,2.4,3,a,r2,q2)
Подскажите пожалуйста как тут нужно

[Roof]

тут нужно указывать правильное количество параметров и правильный тип параметров для процедуры.

procedure ps(n1,n2:integer;k1,k2,k3:real;a:ar ray1;var s:real; var q:integer);

вот в этой строке смотри количество параметров и их тип