Найти скалярное произведение векторов - Free Pascal (483)

const n=10;
var
  a,b,c:array [1..n] of integer;
  s:real;
  i:integer;
procedure rndarr(var t:array of integer;s:string);
var
  i:integer;
begin
  write(s+':[');
  for i:=low(t) to high(t) do
    begin
      t[i]:=random(10);
      write(t[i],' ');
    end;
  writeln(']');
end;
function scal(x,y:array of integer):real;
var
  i:integer;
  s:real;
begin
  s:=0.0;
  for i:=low(x) to high(x) do s:=s+x[i]*y[i];
  scal:=s;
end;
begin
  randomize;
  rndarr(a,'A');
  rndarr(b,'B');
  rndarr(c,'C');
  writeln('S=(b,c)-(a,a)=',scal(b,c)-scal(a,a):0:4);
  readln;
end.