Допишите программу пожалуйста
Дано целое число, не меньшее 2. Выведите его наименьший натуральный делитель, отличный от 1.
var i,n,s:integer;
begin
read(n);
i:=2;
while s<>0 do
begin
s:= n mod i;
i:=i+1;
end;
writeln (i);
end.

var i,n,s:integer;begin    read(n);        i:=2;            s:=1; {иначе не зайдешь в цикл вообще, т.к. изначально S=0]             while s<>0 do                begin                      s:= n mod i;                         if s <> 0 then                           i:=i+1;                 end;writeln (i);end.