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

[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;