Три задачи на Delphi (Паскаль): обработка строк, обработка множеств, работа с типизированным файлом

[ZX Spectrum-128]

Мне то что. Сергею спасибо скажите.

[Serge_Bliznykov]

ну и, чтобы закрыть тему
первая задача.

как из двух строк получить третью строку, в которой есть только неповторяющиеся символы обеих строк?

вариант 1 (использование строковых функций)

var s1, s2, s3 : string;
  i : integer;
begin
   Write('Введите строку 1:');
   ReadLn(s1);
   Write('Введите строку 2:');
   ReadLn(s2);

   s3:='';
   for i:=1 to length(s1) do
     if Pos(s1[i], s2) = 0 then s3 := s3 + s1[i];  
   for i:=1 to length(s2) do
     if Pos(s2[i], s1) = 0 then s3 := s3 + s2[i];  

  WriteLn('Неповторяющиеся символы двух строк: ', s3);
  Readln 
end.

вариант 2 (использование множеств и операций над ними)

var s1, s2, s3 : string;
  ch :  char;
  sset1, sset2, sset3 : set of char;
  i : integer;
begin
   Write('Input first string:');
   ReadLn(s1);
   Write('Input second string 2:');
   ReadLn(s2);

   sset1:= [];
   for i:=1 to length(s1) do Include(sset1, s1[i]);
   sset2:= [];
   for i:=1 to length(s2) do Include(sset2, s2[i]);

   sset3 := (sset1 + sset2) - sset1*sset2;

   s3 := '';
   for ch:=#0 to #255 do
     if ch in sset3 then s3 := s3 + ch;

   WriteLn('String 3: ', s3);
   Readln

end.

Прим. 1. разумеется, можно ещё и по другому решить данную задачу.
Прим. 2. данные варианты имеют свои плюсы и свои минусы.
Прим. 3. возможны опечатки/неточности в коде, я не проверял


пожалуйста.