[GraffyM]

Всем спасибо за советы. Я так понял что это для меня сложно. Но у меня возникли новые вопросы:
1: Как очистить экран консольного приложения?
2: Почему мне пишет ошибку и как с ней боротся?
Текст ошибки:

project 1.exe
3: Так как я хочу стать программистом стоит ли мне уже начинать C++ ?
Посоветуйте учебники для тех кто чуть-чуть шарит по паскалю.
И да... подскажите пожалуйста почему когда я сделал проверку пароля то если я ввожу полу правельный(подбирая по числам) тоесть первый этап проверки пароль проходит а на втором зацыклюется не пишет мол пассворд ис инкоррект??? Розберите и подскажите где я ошибся? А то я не могу найти!!! (П-С вылаживаю полный исходный код. Какой он ни есть.)

Код:

program test2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const

  fileName:string=('D:\noaccess.txt');
var
 command2, command1, pass1, sDv: string;
  dvchp, chb, nep1, dlna, Sbch, iMod, iDch, iDchr :integer;
  f1,f2:TextFile;
  bukv:char;
label
  konec,kommandes,exits;
BEGIN
 IF FileExists(fileName)
 THEN
  BEgiN
   writeln('Enter password please.');
   readln(pass1);
   dlna:=length(pass1);
   Sbch:=0;
    for nep1:=1 to dlna do
     begin
      bukv:=pass1[nep1];
      chb:=Ord(bukv);
      Sbch:=Sbch+chb;
     end;
   iDch:=Sbch;
    while iDch >= 2 do
     begin
      iMod := iDch mod 2;
      iDch := iDch div 2;
      sDv := IntToStr(iMod) + sDv;
     end;
   sDv := inttostr(iDch) + sDv; 
   dvchp:=111000000;
    if
     strtoint(sDv)=dvchp
    then
     if pass1[5]=('u')
     then
     begin  
      AssignFile(f1,'D:\noaccess.txt');
      Reset(f1);
      kommandes:Writeln('Enter command');
      Writeln('Enter "help" to open list of possible command.');
      writeln('Enter "end" to exit of console.');
      readln(command1);
       if
        command1=('end')
       then
        begin
         writeln('Are you sure?');
         goto exits;
        end;
      Writeln('You entered ',command1,' confirm?');
      exits:readln(command2);
       if
        command2=('yes')
       then
        begin
         if
          command1=('end')
         then
          goto konec;
        end
       else goto kommandes;
      Rewrite(f1);
      closefile(f1);
     end
    else
   else
     begin
     writeln('Password not correct.');
     end;
  End
 ElsE
 writeln('File Not Found');
 konec:readln;
END.

Пароль: test
Ну как вам прога? Ещё надо реализовать info, дешифровку паролей если вытягивать из тхт файла и шифровку если их туда запихать. Ах да.. И ещё мне интересно.
4. Подскажите как сделать так чтобы чтото (какоето значение, текст, число) копировалось в буфер.