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

var

 ps: string;

begin

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

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

 Read (ps);

 WriteLn;

 if Length (ps) gt;= 6 then

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

 else

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

end.