Может кто исправить ошибку, не могу найти

program abc;
var n,c,d,p,e,a,i,j,k,o,m,t,z: longint;
function nc(i,j,k,n,z: integer): integer;
begin
 
i:=1;
for i:=2 to n do
begin
k:=0;
for j:=2 to i-1 do
if i mod j=0 then k:=1;
if (k=0) and (n mod i=0) then begin
c:=c+1;
writeln(' ',i, ' ');
end;
nc:=c;
end;
end;
begin
writeln('Введите первое число');
readln(n);
writeln('Введите второе число');
readln(d);
m:=nc(i,j,k,n,1);
t:=nc(i,j,k,d,2);
 
writeln('Результат первого школьника:', m);
writeln('Результат второго школьника:', t);
 
if m>t then writeln('Победил первый школьник');
if m<t then writeln('Победил второй школьник');
if m=t then writeln('Ничья');
readln
end.

program abc;
function nc(n: integer): integer;
var i,j,k,c:integer;
begin
c:=0;
for i:=2 to n do
if n mod i=0 then
 begin
  k:=0;
  for j:=2 to i div 2 do
  if i mod j=0 then k:=1;
  if k=0 then c:=c+1;
 end;
nc:=c;
end;
var n,d,m,t:integer;
begin
writeln('Введите первое число');
readln(n);
writeln('Введите второе число');
readln(d);
m:=nc(n);
t:=nc(d);
writeln('Результат первого школьника:', m);
writeln('Результат второго школьника:', t);
if m>t then writeln('Победил первый школьник');
if m<t then writeln('Победил второй школьник');
if m=t then writeln('Ничья');
end.