Problem mit Typenkompatibilität

[YXCVBNM1]

Hallo zusammen,
ich bin Programmieranfänger und habe eben versucht ein Programm zu schreiben, welches eine bliebige Zahl in ihre Primfaktoren zerlegt. Allerdings verstehe ich die Fehlermeldung nicht bzw. kann sie nicht nachvollziehen. Ich habe die Fehlermeldung im Quelltext grün makiert.



hier ist der quelltext (TurboDelphi):

Delphi-Quellcode:

unit UGUI;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    LFrage: TLabel;
    BZerlegung: TButton;
    EZahl: TEdit;
    PFaktoren: TPanel;
    function NeuePrimzahl:integer;
    procedure BZerlegungClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  a:real;
  p,z:integer;
  Primfaktoren: array of integer;

implementation

{$R *.dfm}

procedure TForm1.BZerlegungClick(Sender: TObject);
VAR nummer,m:integer;
begin
nummer:=1;
a:=strtofloat(EZahl.Text);
z:=round(a);
p:=Form1.NeuePrimzahl;
Repeat
If ((z mod p) =0) then
  begin
  z:=z/p;                    [COLOR="Red"]// HIER KOMMT DIE FEHLERMELDUNG [Pascal Fehler] UGUI.pas(44): E2010 Inkompatible Typen: 'Integer' und 'Extended'[/COLOR]
  Primfaktoren[nummer]:=p;
  inc(nummer);
  end
  else p:=Form1.NeuePrimzahl;

Until z=1 ;

For m:=2 to length(Primfaktoren) do
begin
PFaktoren.Caption:=PFaktoren.Caption+'*'+inttostr(Primfaktoren[m]);
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
p:=2;
end;

function TForm1.NeuePrimzahl:integer;
Var prim:boolean; n,p2:integer;
begin
p2:=p;
prim:=true;
Repeat
  p2:=p2+1;
  prim:=true;
  For n:=2 to (p2-1) do
    begin
    If (p2 mod n) = 0 then prim:=false;
    end;
  Until prim=true ;
result:=p2;
  end;

end.

Meiner Meinung nach haben beide Variablen den Typ integer. Ich verstehe daher die Fehlermeldung nicht. Wäre schön, wenn mir jemand helfen könnte.