Пример сравнения символьных строк — Pascal(Паскаль)

program stparol;
var
     name:string[30];
     parol:string[6];
begin
     write('Пароль (6 символов)?');
     readln(parol);
     if parol='секрет' then begin
          write('Ваша фамилия? ');
          readln(name);
          writeln(name,', Вам доступ разрешен.');
     end
     else begin
          writeln('Неверный пароль! Доступ запрещен!');
     end;
end.