Cho bài toán tìm các ước của 1 số nguyên n cho trước (với n được nhập từ bàn phím). Chỉ ra lỗi sai trong chương trình dưới đây và sửa lại cho đúng

giúp mik với đang cần gấp
----- Nội dung dịch tự động từ ảnh -----
5. Cho bài toán tìm các ước của 1 số nguyên n cho trước (với n được nhập từ bàn phím)
Chỉ ra lỗi sai trong chương trình dưới đây và sửa lại cho đúng.
program Tim_uoc;
var n: integer;
i: integer;
begin
write('Nhap s readln(n);
for i:=1 to n do if n mod i <> 0 then write(i:3,',');
readln
end. *
(2.5 Điểm)
var n, i: integer;
for i:=1 to n do if n mod i = 0 then write(i:3,",');
for i:=1 to n do if n mod i <> 0 then write(i,", ');
readln;