Есть основа, необходимо в 32 раундах добавить еще 3 любые функции.

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const n=4;
var k:array[1..n]of integer;
    fin,fout:file of integer;
    var i:integer;
    x1,x2,tmp:integer;
begin
   assign(fin,'k.txt');
   reset(fin);
   for i:=1 to n do
     read(fin,k[i]);
   close(fin);
   assign(fin,'t.txt');
   assign(fout,'t_crypt.txt');
   reset(fin);rewrite(fout);
   while (not eof(fin)) do
     begin
       read(fin,x1,x2);
       for i:=1 to n do
         begin
          tmp:=x1;
          x1:=(x1+k[i]) xor x2;
          x2:=tmp;
         end;
        tmp:=x1;x1:=x2;x2:=tmp;
        write(fout,x1,x2);
     end;
     close(fin);close(fout);
 
   assign(fin,'t_crypt.txt');
   assign(fout,'t_decrypt.txt');
    reset(fin);rewrite(fout);
   while (not eof(fin)) do
     begin
       read(fin,x1,x2);
       for i:=1 to n do
         begin
          tmp:=x1;
          x1:=(x1+k[n-i+1]) xor x2;
          x2:=tmp;
         end;
        tmp:=x1;x1:=x2;x2:=tmp;
        write(fout,x1,x2);
     end;
     close(fin);close(fout);
  
end.