Считать ключ из файла

var i,j,a,n,x: integer;
    S,noCryptWord,cryptWord : string;
    key : array[1..5] of integer;
begin
     writeln('Введите ключ: ');
     for j:=1 to 5 do read(key[j]);  //вводим ключ через Enter
     {читаем входную фразу}
     write ('Введите фразу для шифровки: ');
      readln(noCryptWord);
     noCryptWord:=noCryptWord+'    ';
     S:= '';   //создаем пустой буфер
     for i:=1 to length(noCryptWord) do
     begin
          S:=S+' ';    //задаем размер буфера
     end;
     
     i:=0; j:=1;
     a:=1; n:=0;
     x:=1;
     
     {зашифровываем слово}
     while a<=(length(S)) do
     begin
             i:=key[j];
             i:=i+n;
             S[x] := noCryptWord[i]; //вставим символ в буфер
             j:=j+1; //отсчитывает позицию в буфере
             if j>5 then
             begin   //проверяем конец блока
                  j:=1;
                  n:=n+5;
             end;
             a:=a+1;
             x:=x+1;
     end;
cryptWord:=S;
writeln('Encrypt: ',cryptWord);
 
//выводим зашифрованное слово
     {расшифровываем}
     n:=0; x:=1;
     j:=1; a:=1;
     S:= '';   //создаем пустой буфер
     for i:=1 to Length(CryptWord) do
     begin
          S:=S+' ';    //задаем размер буфера
     end; i:=0;
     while a<=(length(S)) do
     begin
             i:=key[j];
             i:=i+n;
             S[i] := CryptWord[x]; //вставим символ в буфер
             j:=j+1; //отсчитывает позицию в буфере
             if j>5 then
             begin   //проверяем конец блока
                  j:=1;
                  n:=n+5;
             end;
             a:=a+1;
             x:=x+1;
     end;
cryptWord:=S;
writeln('Decript: ', cryptWord);  //выводим расшифрованное слово
end.