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

Delphi比较两个字符串数组a和b,找出a有而b没有的元素数组c
我是新手，求教：
比如： 
字符串数组 a,b,c; 
a里有 1,2,3,4,5
b里有 1,2,3
生成一个c,c里的元素有4，5。
谢谢！！！

[解决办法]

Delphi(Pascal) code

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;