Найти максимальную стоимость товара Р, которую покупатель не может купить

const
  N = 5;
  M = 6;
var
  Form1: TForm1;
  A : array[1..N] of cardinal;
  B : array[1..M] of cardinal;
procedure Kupira;
begin
  A[1]:=100;
  A[2]:=200;
  A[3]:=400;
  A[4]:=600;
  A[5]:=800;
  B[1]:=50;
  B[2]:=200;
  B[3]:=400;
  B[4]:=600;
  B[5]:=800;
  B[6]:=1000;
end;
      
 
procedure TForm1.BitBtn4Click(Sender: TObject);
var
  i : integer;
  s : integer;
  c : array[1..N+M] of cardinal;
  p : integer;
  sum : integer;
begin
  Kupira;
  s:=0;
  for i:=1 to M do
    Label4.Caption:=Label4.Caption+#13+IntToStr(b[i]);
  for i:=1 to N do
    begin
      c[i]:=a[i];
      Label3.Caption:=Label3.Caption+#13+IntToStr(a[i]);
    end;
  for i:=N+1 to M do
    c[i]:=b[i];
  i:=1;
  while (i <=N+M) and (c[i]<=S+1) do
    begin
      s:=s+c[i];
      inc(i);
    end;
  sum := 0;
  for i:=1 to N do
    sum := sum + a[i];
  if s>sum then Label5.Caption:='Покупатель может купить товар любой доступной ему стоимости'
  else
    p := sum -s-1;
    Label5.Caption:=Label5.Caption+#13+#13+IntToStr(p);
end;
 
end.

var
  i : integer;
  s : integer;
//  c : array[1..N+M] of cardinal;
  p : integer;
  sum : integer;
begin
  Kupira;
  s:=0;
  for i:=1 to M do
    Label4.Caption:=Label4.Caption+#13+IntToStr(b[i]);
  for i:=1 to N do
    begin
//      c[i]:=a[i];
      Label3.Caption:=Label3.Caption+#13+IntToStr(a[i]);
    end;
//  for i:=N+1 to M do
//    c[i]:=b[i-N];
  i:=1;
  while (i <= M) and (b[i]<=S+1) do
    begin
      s:=s+b[i];
      inc(i);
    end;
  sum := 0;
  for i:=1 to N do
    sum := sum + a[i];
  if s>sum then Label5.Caption:='Ïîêóïàòåëü ìîæåò êóïèòü òîâàð ëþáîé äîñòóïíîé åìó ñòîèìîñòè'
  else
    p := sum -s-1;
    Label5.Caption:=Label5.Caption+#13+#13+IntToStr(p);
end;