[EnumaElish]

все решилось... затупил с управляющими символами

Код:

procedure Crypts(var T,G:text); //Ссылаемся на 2 текстовых файла
var S:string; i:integer;
 begin
  reset(t); //открываем для чтения Файл T
 while not Eof(T) do
  begin
    readln(t,s);     //Берем строку из файла T
     for i:=0 to length(s) do
       begin
         if ord(s[i])>=32 then
           ord(s[i]):=ord(s[i])+Ckey;
            if ord(s[i])>256 then ord(s[i]):=ord(s[i])-256+32;
          end;
        writeln(G,S);              //впиываем в файл G строку S
  end;
  close(t);
 end;