program n_63; var n, del:integer; begin writeln (039;Введите целое

Program n_63;
var n, del:integer; begin writeln ('Введите целое число');
readln (n);
for del:=i to n dive 2 do;
if n mod del=0 then writeln (del)
end.
встречено '2' а ожидалось ';' что это означает?