Jak zrobic hasło w tym programie?

13.11.2009

08:23

[1]

xNaruto [ Generaďż˝ ]

Jak zrobic hasło w tym programie?

var
haslo:string;
p:text;
x:string;
begin
repeat
writeln('Podaj haslo');
readln(haslo);
until (haslo=haslo);
if haslo=haslo then writeln('Haslo prawidlowe')
else writeln('Zle haslo');
assign(p,'H:\Nazwisko.dat');
reset(p);
while not eof(p) do
begin
read(p,x);
writeln(x);
end;
close(p);
readln;
end.

Witam, zrobiłem taki program, jak zrobić aby przy podaniu złego hasla wyswietlal mi "Podano zle haslo"?

Dziekuje z gory za pomoc

ElNinho [ STROH 80 ]

if haslo=haslo - a co to za warunek ? przecież to zawsze jest spełnione ?