Die Consolenanwendung klappt nicht ganz

[finalmaster2k]

Die Consolenanwendung klappt leider bei mir nicht ganz und zwar bekomme ich den bereich
(*Ausgabe der Steigungen der zwei Funktionen *)
nicht's in er Console angegeben !?

achso und es stüzt jedesmal ab, wenn ich komma zahlen in die Anwendung schreibe !? . normal ^^ ?! oder typisch WINDOFF XP .

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
    x1,x2,x3,x4: integer;

    y1,y2,y3,y4: integer;

    mA,bA : real;
    mB,bB : real;

    XAB: real;
    YAB: real;



begin
  (* Anganben von Informationen *)

  writeln('The cut Point calculator');
  writeln('Please enter X & Y coordinations');
  writeln;

  (*Entering the coordinations *)

  write ('ENTER X1:         '); readln(x1);
  write ('ENTER Y1:         '); readln(y1);

  write ('ENTER X2:         '); readln(x2);
  write ('ENTER Y2:         '); readln(y2);

  write ('ENTER X3:         '); readln(x3);
  write ('ENTER Y3:         '); readln(y3);

  write ('ENTER X4:         '); readln(x4);
  write ('ENTER Y4:         '); readln(y4);
  writeln;
  (* mathematical analysis    *)

  (*Berechnung von mA und mB*)

  mA := ( y2 - y1 ) div (x2 - x1);
  mB := ( y4 - y3 ) div (x4 - x3);

  (*Berechnung von bA und bB*)

  bA := ( y1 - ( y2 - y1 div x2 - x1) * x1 );
  bB := ( y3 - ( y4 - y3 div x4 - x3) * x3 );

   (*BERECHNUNG VON XAB und YAB *)

  XAB := (bB - bA) / (mA - mB);

  YAB := (mA * (bB - bA) / (mA - mB) + bA);


 (*Ausgabe der Steigungen der zwei Funktionen *)


 writeln(' Die erste Funktion hat die Steigung f(x)',mA:8:2,' x + ',bA:8:2,');
 writeln(' Die zweite Funktion hat die Steigung f(x)',mB:8:2,' x + ',bB:8:2,');

 (*Ausgabe von XAB und YAB *)

 writeln(' Der SChnittpunkt liegt bei(',XAB:8:2,'/',YAB:8:2,')des Koordinatenkreuz');

 readln;








end.