[Makotya]

раз никто не помог,я помогла сама себе.ошибка в последних строчках всего лишь-а так все работает идеально!
выкладываю-вдруг кому то понадобится.

Код:

program lr_4_T;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=4;
const m=4;

type Tmas1=array[1..n] of integer;
type Tmas2=array[1..m] of integer;
type Tmas3=array[1..n+m] of integer;

procedure vvod_ma(var a:array of integer);
          var i:integer;
begin
     writeln('vvedite 1 massiv');

     for i:=1 to n do
     begin
         write('a[',i,']= ');readln(a[i]);
     end;
end;

procedure vvod_mb(var b:array of integer);
var i:integer;

begin
    writeln('vvedite 2 massiv');

    for i:=1 to m do
    begin
        write('b[',i,']= ');readln(b[i]);
    end;
end;

function stroim_c(const a:Tmas1;const b:Tmas2;var c:Tmas3):integer;
var i,j,k,naiden:integer;
begin
    for i:=1 to n do
      c[i]:=a[i];
      k:=n;
      for i:=1 to m do
      begin
        naiden:=0;
        for j:=1 to k do
        begin
          if b[i]=c[j] then
          begin
            naiden:=1 ;
            break;
          end;
        end;

        if naiden=0 then
        begin
          k:=k+1;
          c[k]:=b[i];
        end;
      end;

    result:=k;
end;

procedure print_m(const a:array of integer;const b:array of integer;const c:array of integer);
var i:integer;

begin
     writeln('1 massiv');
     for i:=1 to n do
        writeln(a[i]:4);

     writeln;
     writeln('2 massiv');

     for i:=1 to m do
        writeln(b[i]:4);

     writeln;
     writeln('3 massiv');

     for i:=1 to n+m do
        writeln(c[i]:4);

     writeln;
end;

var a:Tmas1;b:Tmas2;c:Tmas3;
    k:integer;

begin
    writeln('massiv');
    vvod_ma(a);
    vvod_mb(b);
    k:=stroim_c(a,b,c);
    print_m(a,b,c);
    writeln('k=',k);
    readln;
end.