em định tạo 1 bộ phận bảo mật cho chương trình của mình
cái lúc đầu em viết là sau đây nó đơn giản quá nên nhờ anh chị giúp
em muốn khi mình viết sai có thể xóa được kí tự trong mật khẩu để sửa lại cho đúng (khi nhập mật khẩu)và các dấu "*" cũng bị biến mất trên dòng mật khẩu tuần tự từng dấu một theo số lần bấm "xóa"
mong các anh chị giúp [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

USES crt;
VAR
d:ARRAY[1..25]OF STRING;
i,x:INTEGER;
f:STRING;
BEGIN
clrscr;
write('nhap mat khau:');
x:=14;
FOR i:=1 TO 255 DO
BEGIN
x:=x+1;
d:=readkey;
gotoxy(x,wherey);
IF d='5' THEN break;
f:=f+d;
write(#15);
END;
IF f='informatics' THEN
BEGIN
writeln;
clrscr;
writeln('dung mat khau! '#2);
readln;
END ELSE
BEGIN
writeln;
clrscr;
writeln('sai mat khau!'#156);
readln
END;
END.

chương trình này không thể xóa lại được khi viết sai và phải nhấn "5" thay vì enter[IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]
các anh chị giúp em được phần đó càng tốt còn nếu không thì giúp em phần xóa kí tự đi là được rồi