Нахождение ортагональных векторов в пространстве, Среди n(n <= 10) векторов в пространстве (x;y;z) заданных своими к Опции

[latysh]

Среди n(n <= 10) векторов в пространстве (x;y;z) заданных своими координатами, имеется только 2 ортоганальных вектора.Написать программу нахождения ортоганальных векторов .Подготовить и использовать процедуру проверки ортоганальных векторов.
Вот чиво получилось,прога работает, о есть большие сомнения в формуле,если чиво неправильно,подскажите что исправить

program vektors;
var
x: array[1..10] of real;
y:array[1..10] of real;
z:array[1..10] of real;
k,j,i:integer;


BEGIN
writeln('Введите значение x');
for j:=1 to 10 do
read(x[j]);
writeln('Введите значение  y');
for j:=1 to 10 do
read(y[j]);
writeln('Введите значение z');
for j:=1 to 10 do
read(z[j]);
for k:=2 to 10 do
for i:=1 to 10 do
for j:=k to 10 do
if (x[j]*x[i]+y[j]*y[i]+z[j]*z[i])/(sqrt(x[j]*x[j]+y[j]*y[j]+z[j]*z[j])*sqrt(x[i]*x[i]+y[i]*y[i]+z[i]*z[i]))=0 then
writeln(x[j]:5:2,y[j]:5:2,z[j]:5:2 );
write('              ',x[i]:5:2,y[i]:5:2,z[i]:5:2);
end.

[TarasBer]

> while (i<=N)and not Found do begin
> j := 1 + i;
...

Может, всё таки применить goto?

Добавлено через 1 мин.
ОртОгОнальных.

Сообщение отредактировано: TarasBer - 28.04.2010 10:41