не получается вывести

[никита09]

Если исходная последовательность С1,С2,...,С10 не содержит ни одного элемента, значение которого совпадает со значением какого-либо элемента последовательности Р1,Р2,...,Р10, задать значения элементам Х1,X2,...X10 по правилу X[i]=max(C[i],P[i]).

[NO PARSE]var
c: array[1..10]of integer;
p: array[1..10] of integer;
x: array[1..10]of real;
i: integer;
flag: boolean;
bal1, bal2: text;

begin
Assign(bal1, 'isdan.txt');
assign(bal2, 'vdan.txt');
reset(bal1);
rewrite(bal2);
for i := 1 to 10 do read(p[i]);
for i := 1 to 10 do read(c[i]);
flag := true;
i := 1;
while(flag = true) and (i < 10) do
begin
if c[i] = p[i] then
begin
flag := false;
end;
inc(i);
end;
if (flag = false) then
begin
for i := 1 to 10 do
begin
if c[i] > p[i] then
x[i] := c[i]
else
x[i] := p[i];
end;
write('x:', x[i]);
end;
end.[/NO PARSE]

[gantzboss]

var
c: array[1..10]of integer;
p: array[1..10] of integer;
x: array[1..10]of integer;
i: integer;
flag: boolean;
bal1, bal2: text;

begin
  Assign(bal1, 'isdan.txt');
  Assign(bal2, 'vdan.txt');
  Reset(bal1);
  Rewrite(bal2);
  for i := 1 to 10 do read(bal1,p[i]);
  for i := 1 to 10 do read(bal1,c[i]);
  flag := true;
  i := 1;
  while(flag = true) or (i <= 10) do
  begin
    if c[i] = p[i] then
    begin
      flag := false;
    end;
    inc(i);
  end;
  if (flag = true) then
  begin
    for i := 1 to 10 do
    begin
      if c[i] > p[i] then
        x[i] := c[i]
      else
        x[i] := p[i];
    write(bal2, x[i],' ');
    end;
  end;
  Close(bal1);
  Close(bal2);
end.

А while лучше заменить на это

  for i:=1 to 10 do
    for j:=1 to 10 do
      if c[i] = p[j] then
      begin
        flag := false;
        Break;
      end;

так как условие имеет введу, что не одного элемента в другом массиве