Вывести наименьший простой делитель натурального числа Т

Var n,i:integer;
Function Prostie(n:integer):boolean;
Var i:byte;
    b:boolean;
Begin
    b:=true;
    For i:=2 to n div 2 do
     if n mod i = 0 then b:=false;
    Prostie:=b and(n<>1);
End;
Begin
    write('Введите число: ');readln(n);
    For i:=1 to n do
     if n mod i = 0 then 
      if Prostie(i) then break;
    writeln(i);
    readln;
End.

Var n,i,j:integer;
    b:boolean;
Begin
    write('Введите число: ');readln(n);
    For i:=1 to n do
    Begin
     b:=true;
     if n mod i = 0 then
     Begin
       For j:=2 to i div 2 do
        if i mod j = 0 then b:=false;
       if b and(i<>1) then break;
     End;
    End;
    writeln(i);
    readln;
End.

For i:=2 to trunc(sqrt(n)) do

var
  i,j:integer;
begin
  write('enter N:');
  readln(i);
  j:=2;
  while((i mod j)>0)and(j<=trunc(sqrt(i)))do inc(j);
  writeln('result:',j);
end.

var
  i,j:integer;
begin
  write('enter N:');
  readln(i);
  j:=2;
  while((i mod j)>0)and(j<=i)do inc(j);
  write('result:=',j);
end.

var i, t: longint;
begin
  write('T = ');
  readln(t);
  if abs(t) = 1
    then write('+1 and -1 has no prime dividers.')
    else begin
      i := 2;
      while t mod i <> 0 do inc(i);
      write('Min prime divider = ', i)
    end;
  readln
end.