Помогите составить программу в паскале,которая проверяет,верно ли создан новый пароль.

var

 ps: string;

begin

 WriteLn ('Пароль должен быть длиной не менее 6 символов.');

 Write ('Введите пароль: ');

 Read (ps);

 WriteLn;

 if Length (ps) >= 6 then

   WriteLn ('Пароль правильный')

 else

   WriteLn ('Ошибка, пароль короче 6 символов');

end.