Даны 30-элементные вещественные массивы А,В,С. Вычислить величину

uses crt;
const n=30;
type mas=array[1..n] of real;
function Min(a:mas):real;//нахождение минимума
var mn:real;
    i:byte;
begin
mn:=a[1];
for i:=2 to n do
if a[i]<mn then mn:=a[i];
Min:=mn;
end;
function Scal(a,b:mas):real;//скалярное произведение
var s:real;
    i:byte;
begin
s:=0;
for i:=1 to n do
s:=s+a[i]*b[i];
Scal:=s;
end;
procedure Massiv(var a:mas;c:char);//создание массива
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:4:1);
 end;
writeln;
writeln('Минимальный элемент=',Min(a):0:2);
writeln;
end;
var a,b,c,x,y,z:mas;
    mx,v:real;
begin
clrscr;
Massiv(a,'A');
Massiv(b,'B');
Massiv(c,'C');
if Min(a)>Min(b) then//находим макс. минимум
 begin
  mx:=Min(a);
  x:=a;
  y:=b;
  z:=c;
 end
else
 begin
  mx:=Min(b);
  x:=b;
  y:=a;
  z:=c;
 end;
if Min(c)>mx then
  begin
   x:=c;
   y:=a;
   z:=b;
  end;
v:=Scal(x,x)-Scal(y,z);
writeln('Вычисленная величина=',v:0:2);
readln
end.