пересечение матрицы

[peter065]

Где красным выделено - пишет ошибку. че делать?

[Niro]

Исправлять, и не бежать по каждому чиху за помощью.

Assign(f,'e;\kr2\vvod.txt');

а надо

Assign(f,'e:\kr2\vvod.txt');

[peter065]

Program KR2;
Uses CRT;
const r1=9;
      r2=12;
type mas=array[1..r2] of integer;
var
   a:mas;
   b:mas;
   c:mas;
   f,f1:Text;
   k: Boolean;
   r3:Integer;
   s:byte;

procedure Vvod_f;
var i: Integer;
begin
  Assign(f,'vvod_kl.txt');
  rewrite(f);
  Writeln('====Massiv A===========');
  for i:= 1 to r1  do begin
    read(a[i]);
    write (f,a[i]);
  end;
  Writeln;
  Write('====Massiv B===========');
  for i:= 1 to r2  do begin
    read(b[i]);
    write(f,b[i]);
  end;
  Close(f);
end;

procedure shit_f;
var i: Integer;
begin
  Assign(f,'vvod_f.txt');
  Reset(f);
  Writeln('====Massiv A===========');
  for i:= 1 to r1  do begin
    read(f,a[i]);
    write(a[i]);
  end;
  Writeln;
  Readln(f);
  Writeln('====Massiv B===========');
  for i:= 1 to r2  do begin
    read(f,b[i]);
    write(b[i]);
  end;
  Close(f);
end;

procedure Peresechenie;
var i,j:Integer;
begin
  r3:=0;
  for i:= 1 to r1  do
    begin
      k:=False;
      for j:=1 to r2 do
        if a[i]=b[j] then
          begin
            k:=not k;
            Break;
          end;
      if k then
        for j :=1 to r3 do
          if a[i]=c[j] then
            begin
              k:=not k;
              Break;
            end;
      if  k  then begin
        Inc(r3);
        c[r3]:=a[i];
      end;
    end;
end;

procedure Vivod;
var i:Integer;
begin
  Assign(f1,'vivod_f.txt');
  rewrite(f1);
  Writeln;
  Writeln('====C=A^B=======');
  for i:= 1 to r3  do begin
    write(c[i],' ');
    write(f1,c[i]);
    end;
  Readln;
  close(f1)
end;

begin
clrscr;
write('Vi hotite vvesti dannie s klaviatury? 1-yes, 2-no');
read(s);
If s=1 then
begin
  Vvod_f;
  Peresechenie;
  Vivod;
end;
If s=2 then
begin
  shit_f;
  Peresechenie;
  Vivod;
end;

end.

Вот прога. Как сделать искл ситуации, када массивы пустые?