Delphi比较两个字符串数组a和b,找出a有而b没有的元素数组c解决方案

var
  a:array[0..9]of char;
  b:array[0..9]of char;
  c:array[0..9]of char;
  i,x,z:integer;
begin
  for i:= 0 to 9 do
  begin
    for x:= 0 to 9 do
    begin
      if a[i]=b[x] then
      begin
        c[z]:=a[i];
        Inc(z);
      end;
    end;
  end;
end;

------解决方案--------------------

Delphi(Pascal) code

  type
    Ts = array of string;

  procedure DoIt(const a,b: array of string;var c: Ts);
  var
    I, J: Integer;
  begin
    I := Low(a);
    while I <= High(a) do
    begin
      J := Low(b);
      while J <= High(b) do
        if a[I] = b[J] then
          Break
        else
          Inc(J);

      if J = Length(b) then
      begin
        SetLength(c, Length(c) + 1);
        c[High(c)] := a[I]
      end;

      Inc(I)
    end;
  end;

var
  arr: Ts;
begin
  DoIt(['1','2','3','4','5'], ['1','2','3'], arr);
end;