Юнит Опции

[BAEVIK]

Есть программа нада сделать чтобы в ней был юнит и обращение к нему !
Вот программа !

program _1_;
Type
    Masiv = array[1..100,1..100] of integer;
procedure arr(var a:masiv;count:integer);
var i:integer;
begin
for i:=1 to count do
  begin
       a[i,i]:=0;
       a[count-i+1,i]:=0;
  end;
end;
var
     a:masiv;
     i:integer;
     count:integer;
     j:integer;
begin
 writeln('‚ўҐ¤ЁвҐ Є(r)«ЁзҐбвў(r)');
 readln(count);
 Writeln('vvedit zna4enn9 elementy masuv');
  For i:=1 to count do
   begin
        for j:=1 to count do read(A[i,j]);
        writeln;
   end;
 for i:=1 to count do
  for j:=1 to count do
    If a[i,j]>100 then
     begin
       arr(a,count);
       break;
     end;
  for i:=1 to count do
  begin
   for j:=1 to count do Write(a[i,j],' ');
   Writeln;
   end;
readln;
end.

.

[volvo]

Ну, сделай... Вынеси описание массива и процедуру Arr в отдельный модуль:

unit myUnit;
interface

Type
    Masiv = array[1..100,1..100] of integer;
procedure arr(var a:masiv;count:integer);

implementation

procedure arr(var a:masiv;count:integer);
var i:integer;
begin
for i:=1 to count do
  begin
       a[i,i]:=0;
       a[count-i+1,i]:=0;
  end;
end;

end.

, а в основной программе подключай и используй его... (uses myUnit)