Вопрос Помогите с Паскалем. Мне нужна программа для определения простых чисел.

И если число составное она напишет его простые делители. Я не могу сделать, чтобы она выдавала простые делите, она выдаёт все, кроме 1 и самого числа.
program Math;
uses crt;
var i,a,k,g: longint;
Label 1;
begin
1: clrscr;
writeln('Введите число'); read(a);
k:=0;
for i:=2 to a div 2 do begin
if a mod i =0 then begin k:=1; end; end; if k=1 then begin write(a,'- сотавное число. Его можно разделить на :'); end;
for i:=2 to a div 2 do begin
if a mod i =0 then write(i,' ') ; end;
if k=0 then write(a,'-простое число ');
daley(10000);
goto 1;
end.