Отрезки

[Иоанн IV Грозный]

Задача:определить расположение отрезков(через векторное произведение)Почему-то ругается компьютер

program Otrezki;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Type TPoint=record
x,y:real;
end;
TSegment=record
x,y:real;
end;
Var s1,s2,s3,s4,s5:TSegment;
p1,p2,p3,p4:TPoint;
v1,v2,v3,v4:real;

begin
  { TODO -oUser -cConsole Main : Insert code here }
Writeln('vvedite koordinaty tochki p1');
Readln(p1.x);
Readln(p1.y);
Writeln('vvedite koordinaty tochki p2');
Readln(p2.x);
Readln(p2.y);
Writeln('vvedite koordinaty tochki p3');
Readln(p3.x);
Readln(p3.y);
Writeln('vvedite koordinaty tochki p4');
Readln(p4.x);
Readln(p4.y);
s1.x:=p2.x-p1.x;
s1.y:=p2.y-p1.y;
s2.x:=p3.x-p1.x;
s2.y:=p3.y-p1.y;
s3.x:=p4.x-p1.x;
s3.y:=p4.y-p1.y;
s4.x:=p2.x-p3.x;
s4.y:=p2.y-p3.y;
s5.x:=p4.x-p3.x;
s5.y:=p4.y-p3.y;
v1:=s5.x*(-s2.y)-s5.y*(-s2.x);
v2:=s5.x*s4.y-s5.y*s4.x;
v3:=s1.x*s2.y-s2.x*s1.y;
v4:=s1.x*s3.y-s1.y*s3.x;
If v1*v2<0 and v3*v4<0 then Write('otrezki peresekayutsya')
Else If v1*v2>0 and v3*v4>0 then Write('otrezki ne peresekayutsya')
Else If v1*v2<=0 and v3=0 and v4<>0 then Write('tochka p3 lejit na otrezke p1p2')
Else If v1*v2<=0 and v4=0 and v3<>0 then Write('tochka p4 lejit na otrezke p1p2')
Else If v3*v4<=0 and v1=0 and v2<>0 then Write('tochka p1 lejit na otrezke p3p4')
Else If v3*v4<=0 and v2=0 and v1<>0 then Write('tochka p2 lejit na otrezke p3p4')
Else If v1=0 and v2=0 and v3=0 and v4=0 then Write('otrezki raspolojeni na odnoi pryamoi');
Readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.