паскаль omg)

[xq1b]

Всем привет. Нужна ваша помощь. Помогите проверить текст программы на паскале. вот условие задачи: Необходимо считать данные о двух векторах. Каждый вектор является двумерным. Необходимо реализовать подпрограмму, проверяющую образуют ли эти векторы прямой угол. Если да, то в регистре rA должно быть число1 по итогам выполнения подпрограммы, и 0 в противном случае.
Вот программа:

program v4;
uses crt;
type vector = record
a,b: integer;
end;
var Vx, Vy: vector;
A1,B1,C : real;
function ugol(Vx,Vy: vector): real;
begin
clrscr;
ugol:= sqr(A1)+sqr(B1);
end;
begin
write('vvedite koordinati Ax, Ay, Bx, By' );
read(Vx.a,Vy.a,Vx.b,Vy.b);
write('vvedite storonu C' );
read(C);
A1:= sqrt( (Vx.a*Vx.a) + (Vy.a*Vy.a) );
B1:= sqrt( (Vx.b*Vx.b) + (Vy.b*Vy.b) );
if (ugol(Vx,Vy)) = (sqr(C)) then write('yest priamoi ugol') else write('net priamogo ugla');
readkey;
end.

и помогите написать блок схему по ней плиз

[BDA]

program v4;

uses
  crt;

const
  eps = 0.000001;

type
  vector = record
    x, y: integer;
  end;

var
  a, b: vector;

function vectorcos(a, b: vector): real;
begin
  vectorcos := a.x * b.x + a.y * b.y;
end;

begin
  write('vvedite koordinati Ax, Ay, Bx, By: ' );
  read(a.x, a.y, b.x, b.y);
  if abs(vectorcos(a, b)) < eps then write('yest priamoi ugol') else write('net priamogo ugla');
  readkey;
end.

Блок-схемы отлично строятся в FCEditor.
Кстати, сейчас перечитал условие:
Во-первых, что за регистр rA, уже который раз натыкаюсь на него и вразумительного ответа не увидел.
Во-вторых, программа должна выглядеть по-другому.

program v4;

uses
  crt;

type
  vector = record
    x, y: integer;
  end;

var
  a, b: vector;

function rightangle(a, b: vector): integer;
const
  eps = 0.000001;
begin
  if abs(a.x * b.x + a.y * b.y) < eps then rightangle := 1 else rightangle := 0;
end;

begin
  write('vvedite koordinati Ax, Ay, Bx, By: ' );
  read(a.x, a.y, b.x, b.y);
  if rightangle(a, b) = 1 then write('yest priamoi ugol') else write('net priamogo ugla');
  readkey;
end.