Действия с векторами

unit vektor;
interface
const max=15;
type massiv=array[1..max] of real;
type vector=record
     x,y:real
     end;
procedure vvod(var v:massiv; n:integer);
procedure vivod(var v:massiv; n:integer);
procedure sum(x,y:massiv;var z:massiv;n:integer);
procedure razn(x,y:massiv; var z:massiv;n:integer);
procedure Scal(x,y:massiv;n:integer);
implementation
procedure vvod;
var i:byte;
begin
for i:=1 to n do
 begin
 writeln('vvedite ',i,'element ');
  write('vektor[',i,']=');
  readln(v[i]);
 end;
end;
procedure vivod;
var i:byte;
begin
 for i:=1 to n do
  write(v[i],' ');
  writeln;
end;
procedure sum;
var i:byte;
begin
 for i:=1 to n do
 z[i]:=x[i]+y[i];
end;
procedure razn;
var i:byte;
 begin
  for i:=1 to n do
  z[i]:=y[i]-x[i];
 end;
procedure Scal; {скалярное произведение векторов}
var i:integer;
    c:real;
 begin
  c:=0;
   for i:=1 to n do
  c:=c+x[i]*y[i];
  Scal:=c;
 end;
end.

uses vektor;
var a,b,c:massiv;
    n:byte;
begin
write('koli4estvo vektorov',max,' n=');
readln(n);
Vvod(a,n);
Vvod(b,n);
vivod(a,n);
vivod(b,n);
sum(a,b,c,n);
writeln('summa vektorov:');
vivod(c,n);
writeln;
writeln;
razn(a,b,c,n);
writeln('raznost vektorov:');
vivod(c,n);
writeln;
writeln;
Scal(a,b,n);
writeln('skal9Irnoe proizvedenie:');
vivod(a,b,n);
readln
end.