Die Consolenanwendung klappt nicht ganz

[finalmaster2k]

danke ^^ komme immer näher zum ziel ..

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
    x1,x2,x3,x4: real;

    y1,y2,y3,y4: real;

    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 ) / (x2 - x1);
  mB := ( y4 - y3 ) / (x4 - x3);

  (*Berechnung von bA und bB*)

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

   (*BERECHNUNG VON XAB und YAB *)

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

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

    (*Steigung der 2 Funktionen*)

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

 readln;

  (*UNENDLICHE SCHNITpunkte*)

 end;

 (* Vergleichgen *)

 procedure Vergleichen

  if

  mA := mB ;

  then

      if

      bB := bA;

      then

      writeln ('unendliche Schnitpunkte');

      else

      writeln ('keine Schnitpunkte');


  else

  (*Ausgabe von XAB und YAB *)

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





 readln;








end.

Ich habe paar fragen, ich habe jetzt if then else mit rein gepack und muss bei (* Vergleichgen *)
irgendwie die mA und mB mit boolean versehen,, muss ich extra für diese Operation eine Procedure machen ?..