Паскаль. Разложение на множители.

[Arizonec]

Задача: Дано натуральное число Р. Разложите данное число на простые множители(используя процедуру или функцию). Вобщем прогу написал, но работает она неправильно, исправьте пжлст

Uses
Crt;
Type
mas=array[1..20] of integer;
Var
i,n,k:Integer;
P,Z:Integer;
a:mas;
procedure Deliteli(Var b:mas; E:integer);
begin
for i:=2 to E div 2 do
if E mod i=0 then
begin
Z:=E div i;
b[k]:=Z;
inc(k);
end;
end;
Begin
clrscr;
writeln('4isla 3,5,7,11,13,17 i t.d ne imeut prostix delitelei');
writeln('vvedite P,');
Read(P);
k:=1;
Deliteli(a,P);
for n:=1 to k div 2 do
begin
Writeln('P= ', a[k],'*',a[k-n+1]);
end;
Readkey;
End.

[Min]

procedure f(x:longint);
var i,s,w:longint;
begin
s:=x;
w:=2;
while s>1 do
 begin
  if (s mod w)=0 then
   begin
    write(w:4);
    s:=s div w;
   end
  else inc(w);
 end;
writeln;
end;

var N:longint;
begin
 readln(n);
 f(n);
 readln;
end.

[Min]

writeln('4isla 3,5,7,11,13,17 i t.d ne imeut prostix delitelei');

имеют...... только состоят из одного множителя (самого числа)..... любое натуральное число можно разложить на простые множитли

[Arizonec]

Спасиб )