Программирование с использованием функций.

[Язуджи]

Задача: Даны два вектора х = (х1,......,хn) и y = (y1,.....,yn), где n <=9. Найти угол между векторами х и у по формуле: q=arccos(x,y)/(sqrt((x,x)(y,y))). Т.е. Вычислить скалярное произведение. В программе использовал формулу скалярного произведения, но в результате получаю число, а не угол. Что я делаю не так? может какие есть косяки ещё?
Вот моя программа(сорри, что в таком виде скидываю, нуб прост
p.s. если можно, то сделайте без записей , Плз

type 
vector = record 
 X,Y:Real;
end;

var X,Y:vector;

procedure fillvector(var a:vector);
begin
 Write(' Введите x : ');
 readln(a.X);
 Write(' Введите y : ');
 readln(a.Y);
end;

procedure init(var a,b:vector);
begin
 Writeln('>Первый вектор<');
 fillvector(a);
 Writeln('>Второй вектор<');
 fillvector(b);
end;

function scalar(a,b:vector):real;
begin
scalar:=a.X * b.X + a.Y * b.Y;
end;

function modvec(a:vector):real;
begin
 modvec:=sqrt((a.X*a.X + a.Y*a.Y));
end;

function cosA(a,b:vector):real;
begin
 cosA:=(scalar(a,b))/(modvec(a)*modvec(b));
end;

function corner(a,b:vector):real;
begin
 corner:=arccos(cosA(a,b));
end;

begin
init(x,y);
write('Угол между векторами = ',(corner(x,y)));
end.

[type_Oleg]

Сообщение от Язуджи

... но в результате получаю число, а не угол.

А что , угол - не число?
Кстати,триг. функции Pascal работают с радианами. Поэтому ArcCos возвращает в радианах.