Помогите с информатикой!!!! Если есть ошибки напишите как правильно Очень нужно!!!

Var
   n,k:integer;
Begin
Write('n = ');
ReadLn(n);
k:=3;
While (k<=n div 2)and(n mod k <> 0) do
      k:=k+2;
if n mod k = 0 then WriteLn(k)
else WriteLn('У ',n,' нет нечётных делителей, больших 1')
End.