[Gamer2100]

Спасибо, мне уже помогли, советов послушался и код изменил, а ошибка была только в этом:
не
if not (c='Walkman') or (c='walkman')
or (c='Dreamer') or (c='dreamer')
or (c='X3M-NRG') or (c='x3m-nrg')
ндо было писать, а
if not ((c='Walkman') or (c='walkman')
or (c='Dreamer') or (c='dreamer')
or (c='X3M-NRG') or (c='x3m-nrg'))
то-есть всё взять в скобки

добавлено через 46 минут
хех, всё работает, вот финальный вариант:

program pass;
var a,b,c,d,e,f,g:string;
    p: string;
label 1;
begin
 writeln('Эта программа покажет вам мои пароли, если вы правильно ответите на 3 вопроса.');
 writeln('Готовы?(введите "да" или "нет").');
 readln(a);
 if (a='да') then writeln('Введите дату моего рождения в формате ДД/ММ/ГГГГ')
             else begin
             writeln('Как хотите.');
             goto 1;
             end;
 readln(b);
 if (b='25.12.1993') then writeln('Правильно, теперь введите один из моих ников.')
                     else begin
                     writeln('Ошибка. Прощайте.');
                     goto 1;
                     end;
 readln(c);
 if (c='Walkman') or (c='walkman')
     or (c='Dreamer') or (c='dreamer')
     or (c='X3M-NRG') or (c='x3m-nrg')
     then writeln('Правильно, теперь назовите мой любимый инструмент.')
     else begin
          writeln('Ошибка. Прощайте');
          goto 1;
          end;
 readln(d);
 if (d='begin') or (d='Begin')
     then writeln('Правильно, но это ещё не всё, не думайте что всё так просто, назовите мою любимую актрису(на английском пожалуйста).')
     else begin
          writeln('Ошибка. Прощайте.');
          goto 1;
          end;
readln(e);
if (e='Emma Wotson')
    then writeln('Правильно!!!, Последний(это правда) вопрос. Какая фамилия у человека, составившего учебник по алгебре для 7,8,9 класса?')
    else begin
         writeln('Ошибка. Прощайте.');
         goto 1;
         end;
readln(f);
if (f='Мордкович') then begin
                   writeln('Молодец, все слои защиты пройдены, вот мои ники и пароли:');
 writeln('"WebMoney"');
 writeln('код: 099087336262');
 writeln('пароль:***');
 writeln('код доступа к фаилу ключей:***');
 writeln('"E-mail"');
 writeln('login:sergey1993@bk.ru');
 writeln('pass:***');
 writeln('"Мой сайт"');
 writeln('login:young-gamedev');
 writeln('pass:***');
 writeln('"GTAMaps"');
 writeln('login:X3M-NRG');
 writeln('pass:***');
 writeln('Есть и ещё но я их забыл:-(');
 writeln('Закончили переписывать;-)?');
                        end
                   else begin
                   writeln('Ошибка. Прощайте');
                   goto 1;
                   end;
1: readln(g);
end.