Процедура.получение вектора единичной дины

[NeaD]

Преобразовать данные вектора A=(a1,..., a6) и B=(b1 ,..., b6) к коллинеарным векторам единичной длины.Получение вектора единичной длины оформить в виде процедуры.

пожалуйста просьба не оставлять без внимания...горит зачет

[NeaD]

паскаль delphi

[NeaD]

так,ну с этим вроде разобрался...теперь препод просит оформить цикл в вычислениях...помогите!)

uses
  SysUtils;

type vector=array[1..6]of real;
procedure ort(v:vector; l,k,p:real; i:integer; var v1:vector);
begin
l:=sqrt(sqr(v[1])+sqr(v[2])+sqr(v[3])+sqr(v[4])+sqr(v[5])+sqr(v[6]));
for i:=1 to 6 do
v1[i]:=v[i]/l;
end;
var
a,b,a1,b1,v,v1:vector;
i:integer;
k,l,p:real;
begin
writeln('vvedite vector A');
for i:=1 to 6 do
read(a[i]);
ort(a,l,k,p,i,v1);
for i:=1 to 6 do
a1[i]:=v1[i];
for i:=1 to 6 do
writeln(a1[i]:1:3,'  ');
writeln('vvedite vector B');
for i:=1 to 6 do
read(b[i]);
ort(b,l,k,p,i,v1);
for i:=1 to 6 do
b1[i]:=v1[i];
for i:=1 to 6 do
writeln(b1[i]:1:3,'  ');
read(l);
end.