на проверку

Const n=10; m=15; p=25;
Var f1,f2,f3:file of integer;
    A,A1:array[1..15]of integer;
    B,B1:array[1..15]of integer;
    C:array[1..25]of integer;
    i,j,k:integer;
Begin
 assign (f1,'d:\proba1.txt');
 assign (f2,'d:\proba2.txt');
 assign (f3,'d:\proba3.txt');
 rewrite (f1);
 rewrite (f2);
 i:=1; j:=1;
For i:=1 to n do
 Begin
  a[i]:=1;
  write (f1, a[i]);
 end;
For i:=1 to m do
 Begin
  b[i]:=1;
  write (f2, b[i]);
 end;
close(f1); close(f2);
reset(f1); reset(f2);
write ('Maññèâ À: ');
For i:=1 to n do
 Begin
  read (f1, a1[i]);
  write (a1[i],' ');
 end;
writeln;
write ('MaccuB B: ');
For i:=1 to m do
 Begin
  read (f2,b1[i]);
  write (b1[i],' ');
 end;
writeln;
close(f1); close(f2);
i:=1; j:=2; k:=1;
while (i<=n) and (j<=m) do
Begin
 If a[i]<=b[j] then begin
  C[k]:=b1[j]; inc (i); end
 else begin
  C[k]:=b1[j]; inc(j); end;
k:=k+1; end;
while i<=n do begin
 C[k]:=a1[i]; inc(i); inc(k)
end;
while j<=m do begin
 C[k]:=b1[j]; inc(j); inc(k)
end;
write ('MaccuB c: ');
For i:=1 to p do begin
 write (c[i],' ');
end; writeln;
rewrite (f3);
For i:=1 to n+m do
 write (f3, c[i]);
end.