Из массива в процедуру

program DZ;
uses crt;
const n=3;
type mas=array[1..n] of integer;
 
 
  
var i:integer;
    a,b:mas;
    dlinA,dlinB:real;
begin
TextColor(white);
    writeln ('Введите вектор А');
 for i:=1 to n do read (a[i]);
    writeln ('Введите вектор B');
 for i:=1 to n do read (b[i]);
   clrscr;
    write('Вектор A={');
 for i:=1 to n do write(a[i]:5);
    writeln('    }');
    writeln;
    write('Вектор B={');
    for i:=1 to n do write(b[i]:5);
    writeln('    }');
 
   dlinA:=sqrt(sqr(a[1])+sqr(a[2])+sqr(a[3]));
  dlinB:=sqrt(sqr(b[1])+sqr(b[2])+sqr(b[3]));
 writeln;
writeln('Длина вектора А=', dlinA:4:1);
 writeln('Длина вектора B=', dlinB:4:1);
  if dlinA=dlinB then writeln('Длины равны') else writeln('Длины не равны');
    
    
    repeat until KeyPressed;
end.

program DZ;
uses crt;
 
var x1,y1,x2,y2,l1,l2:real;
procedure dlina (x,y:real; var l:real);
 
begin
 
l:=sqrt(x*x+y*y);
 
end;
begin
TextColor(black);
TextBackGround(yellow);
clrscr;
 
 
 
    write('Координаты первого вектора = ');
readln(x1,y1);
  write('Координаты второго вектора = ');
readln(x2,y2);
dlina(x1,y1, l1);
 
write('Первый вектор =',l1:7:2  );
 
dlina(x2,y2, l2);
readln;
write('Второй вектор =',l2:7:2  );
readln;
  if l1=l2 then writeln('Длины равны') 
  else if l1 > l2 then writeln('Длины первого вектора больше')
  else writeln('Длина второго вектора больше');
 
 
 
    readln;
   end.

const n=2; W=8; D=1;
type TVector = array [0..n-1] of Real;
 
var
  a, b: TVector;
  al, bl: Real;
  i: Integer;
begin
  WriteLn('Введите координаты ',n,'-мерных векторов');
  Write('A: '); for i:=0 to n-1 do Read(a[i]);
  Write('B: '); for i:=0 to n-1 do Read(b[i]);
  {al:=0;} for i:=0 to n-1 do al:=al+Sqr(a[i]); al:=SqRt(al);
  {bl:=0;} for i:=0 to n-1 do bl:=bl+Sqr(b[i]); bl:=SqRt(bl);
  Write('A = {'); for i:=0 to n-1 do Write(' ',a[i]:W:D); WriteLn(' },  |A| = ',al:W:D);
  Write('B = {'); for i:=0 to n-1 do Write(' ',b[i]:W:D); WriteLn(' },  |B| = ',bl:W:D);
  Write('|A| '); if al<bl then Write('<') else if al>bl then Write('>') else Write('='); WriteLn(' |B|');
end.

const
  n=2; W=8; D=1; sCmp: array [-1..1] of Char = ('<', '=', '>');
type
  TVector = array [0..n-1] of Real;
 
procedure vRead(var v: TVector);
var i: Integer;
begin
  for i:=0 to n-1 do Read(v[i]);
end;
 
procedure vWrite(const v: TVector; p: String);
begin
var i: Integer;
begin
  if p<>'' then Write(p,' = ');
  Write('{'); for i:=0 to n-1 do Write(v[i]:W:D); Write(' }');
end;
 
function vLen(const v: TVector): Real;
var i: Integer;
begin
  Result:=0; for i:=0 to n-1 do Result:=Result+Sqr(v[i]); Result:=SqRt(Result);
end;
 
function Compare(a, b: Real): Integer;
begin
  if a<b then Result:=-1 else if a>b then Result:=1 else Result:=0;
end;
 
var
  a, b: TVector;
  al, bl: Real;
begin
  WriteLn('Введите координаты ',n,'-мерных векторов');
  Write('A: '); vRead(a); al:=vLen(a);
  Write('B: '); vRead(b); bl:=vLen(b);
  vWrite(a,'A'); WriteLn(',  |A| = ',al:W:D);
  vWrite(b,'B'); WriteLn(',  |A| = ',al:W:D);
  WriteLn('|A| ',sCmp[Compare(al,bl)],' |B|');
end.