Sayfa Kitleme Html Xhtml Kodu Ile Kodu Ben Yaptim Uyar Sanirim Size

uses crt;
var a:string[10]; b:integer;
begin
while a<>"ulkucudesing" do
begin
b:=b+1;
write("Şifre Giriniz >"); readln(a);
end;
writeln(b," incide Şifreyi Bildiniz"); readln end.