Клиент-серверное приложение для защищённой передачи файлов по сети

uses System.IO, System.Security.Cryptography;
var
  n:integer;
  s,t:string;
procedure GenKeys;
begin  
  var rsa:=new RSACryptoServiceProvider();
  //создали пару ключей
    &File.WriteAllText('public.xml', rsa.ToXmlString(false));//этот ключ отдали дргу
    &File.WriteAllText('private.xml',rsa.ToXmlString(true)); 
    writeln('Ключи созданы! передайте public.xml вашему другу');
end;
 
function EncryptMessage(s:string):string;  // Друг ключем шифрует сообщение
begin
  var rsa:=new RSACryptoServiceProvider();
    rsa.FromXmlString(&File.ReadAllText('public.xml'));
    Result:=System.Convert.ToBase64String(rsa.Encrypt(Encoding.UTF8.GetBytes(s), false));
end;
 
function DecryptMessage(s:string):string;        // получаем зашифрованное сообщение и расшифровываем
begin
  var rsa:=new RSACryptoServiceProvider();
     rsa.FromXmlString(&File.ReadAllText('private.xml'));
     Result:=Encoding.UTF8.GetString(rsa.Decrypt(System.Convert.FromBase64String(s), false));
end;
  
begin
  repeat
  repeat
    writeln('1. Генерация ключей');
    writeln('2. Шифровать сообщение в файл');
    writeln('3. Расшифровать файл и вывести сообщение');
    writeln('4. Выход');
    write('Ваш выбор (цифра):');readln(n);
  until n in [1..4];
  case n of
    4:halt;
    1:GenKeys;
    2:begin
        write('Введите сообщение:');
        readln(t);
        s:=ExtractFilePath(ParamStr(0))+'file.enc'; 
        &File.WriteAllText(s,EncryptMessage(t));
         writeln('файл ',s,' создан');
      end;
    3:begin
        write('Введите имя файла:');
        readln(t);
        if FileExists(t) then Writeln('Сообщение:',DecryptMessage(&File.ReadAllText(t)))
                          else writeln('файл не найден');
      end;
    end;  
 until false; 
  end.