Получить третий массив, в который входят все элементы первого массива и те элементы второго, которые не встречались в первом

uses crt;
const Max=5;
var a,b:array[1..Max] of real;
    c:array[1..2*Max] of real;
    k,l,m:integer;
 begin
  ClrScr;
  Writeln('Îáúåäèíåíèå äâóõ óïîðÿäî÷åííûõ ìàññèâîâ');
  Writeln('Ââåäèòå ýëåìåíòû ïåðâîãî ìàññèâà*');
  Write('(',Max,'  ÷èñåë) ->');
   for k:=1 to Max do
    begin
     Read(a[k]);
    end;
  Writeln('Ââåäèòå ýëåìåíòû âòîðîãî ìàññèâà*');
  Write('(',Max,'  ÷èñåë) ->');
   for l:=1 to Max do
    begin
     Read(b[l]);
    end;
  k:=1;
  l:=1;
  m:=1;
   repeat
    if a[k]<b[l] then
     begin
      c[m]:=a[k];
      m:=m+1;
      k:=k+1;
     end
    else
     if a[k]>b[l] then
      begin
       c[m]:=b[l];
       m:=m+1;
       l:=l+1;
      end
     else
      begin
       c[m]:=a[k];
       c[m+1]:=b[l];
       k:=k+1;
       l:=l+1;
       m:=m+2;
      end;
   until (k>Max) or (l>Max);
  while k<=Max do
   begin
    c[m]:=a[k];
    k:=k+1;
    m:=m+1;
   end;
  while l<=Max do
   begin
    c[m]:=b[l];
    l:=l+1;
    m:=m+1;
   end;
  Writeln('Ìàññèâ ðåçóëüòàò');
   for m:=1 to 2*Max do
    Write(c[m]:6:2,' ');
  Writeln;
  Writeln('Äëÿ çàâåðøåíèÿ íàæìèòå Enter!');
 
 end.