Üdv, hogy tudnám megoldani ezt pascalban?

Azt a feladatot kaptuk a suliban hogy egy számot bontsunk fel prímtényezőkre. Na most egy pici help kéne, mert nem sok kell ahhoz hogy kész legyen. Idáig így fest:

Program primszamok;

Uses Crt;

Var i: Byte;

szam,muvelet: Longint;

prim: Boolean;

Procedure beker;

Begin

Writeln('Kerek egy szamot!');

Readln(szam);

End;

Procedure eldont;

Begin

i:=1; muvelet:=0; prim:=true;

Repeat

i:=i+1;

muvelet:=muvelet+1;

Until (i=Round(sqrt(szam))) or (szam mod i=0);

If szam mod i=0 Then

Begin

Writeln('Nem primszam');

prim:=false;

End

Else Writeln('Primszam');

Writeln('Muveletek szama: ',muvelet);

End;

Procedure felbont;

Begin

If prim=true Then Writeln(szam,'=1*',szam);

If prim=false Then

Begin

End;

End;

Begin

Clrscr;

beker;

eldont;

felbont;

Readkey;

End.