Идея проверки имени и пароля при входе. Опции

[Kolbasnik98]

Появилась вот такая идея. Но почему-то не работает. Просьба помочь.

Program login;
var login, password: char;
begin
writeln('Введите имя и пароль');
readln(login, password)
end;
while (login <> 'username') and (password <> 'parol')
do begin
writeln('Hello World!');
readln;
End.

[APAL]

var login, password: String;

[Гость]

Проблема с Begin - End. Проверь количество пар

[alex 10]

Я делал так:

 var 
par,login:string;
begin
write('введите пароль');
readln(par);
writeln('введите логин');
readln(login);
if(par='ваш пароль')and(login='ваш логин')then
writeln('hello')
end.