Как дополнить программу?

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.

procedure CorrectKeyWord(var Input: string; KeyLength: word);
begin
  if Length(Input) > KeyLength then Input:= Copy(Input,1,KeyLength)
  else while Length(Input) < KeyLength do Input:= '0' + Input;
end;

function CorrectKeyWord(Input: string; KeyLength: word): string;
begin
  if Length(Input) > KeyLength then Input:= Copy(Input,1,KeyLength)
  else while Length(Input) < KeyLength do Input:= '0' + Input;
  Result:= Input;
end;