Матрицы

uses crt;
const
  n=4;{ïîðÿäîê ìàòðèöû}
var
  a:array [1..n,1..n] of integer;
  i,j,min:integer;
begin
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  writeln('------------------');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j],' ')
    end;
    writeln
  end;
  {îïðåäåëÿåì íàèáîëüøèé èç îòðèöàòåëüíûõ}
  min:=0;
  for i:=1 to n do
    for j:=1 to n do
    begin
      if (a[i,j]<0) and (min=0) then
        min:=a[i,j];
      if (a[i,j]>min) and (a[i,j]<0) then
        min:=a[i,j]
    end;
  {âûâîäèì ìàòðèöó}
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  writeln('------------------');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j],' ');
    writeln
  end;
  writeln('------------------');
  writeln('Â äàííîé ìàòðèöå íàèáîëüøèé èç îòðèöàòåëüíûõ ýòî ',min)
end.

uses crt;
const
  n=4;{ïîðÿäîê ìàòðèö}
var
  a,b,c:array [1..n,1..n] of integer;
  i,j,variant:integer;
  fl:boolean;
begin
  {çàïîëíÿåì è âûûâîäèì ìàòðèöó a}
  writeln('Èñõîäíàÿ ìàòðèöà A:');
  writeln('------------------');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j],' ')
    end;
    writeln
  end;
  {çàïîëíÿåì è âûûâîäèì ìàòðèöó b}
  writeln('Èñõîäíàÿ ìàòðèöà B:');
  writeln('------------------');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      b[i,j]:=random(8)-4;
      write(b[i,j],' ')
    end;
    writeln
  end;
  writeln('------------------');
  {ñëàæèâàåì ëèáî âû÷èòàåì ìàòðèöû A,B}
  writeln('Íàæìèòå:');
  writeln('1: A+B');
  writeln('2: A-B');
  writeln('0: ÷òîáû âûéòè');
  readln(variant);
  writeln('------------------');
  case variant of
    1:  fl:=true;
    2:  fl:=false;
    0:  exit;
  end;
  if fl=true then
    for i:=1 to n do
      for j:=1 to n do
        c[i,j]:=a[i,j]+b[i,j];
  if fl=false then
    for i:=1 to n do
      for j:=1 to n do
        c[i,j]:=a[i,j]-b[i,j];
  {âûâîäèì ìàòðèöó}
  writeln('Ïîëó÷åííàÿ ìàòðèöà C:');
  writeln('------------------');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(c[i,j],' ');
    writeln
  end;
  writeln('------------------')
end.

Unit Myunit;
Interface
 procedure Add
 (X,Y:integer;var z:real);
 procedure division
 (x,y:integer;var z:real);
 implementation
 procedure add(x,y:integer;var z:real);
 begin
 z:=x+y;end;
 procedure division(x,y:integer;var z:real);
 begin
 z:=x/y;
 end;
end.
Uses crt,MyUnit;
 var a,b,c:integer;
 c:real;
 begin
  read(a,b);
  add(a,b,c);
  write(c);
  if b<>0
  then
  division(a,b,c);
  write(c);
end.

uses crt,arrays;
const
  n=4;{ïîðÿäîê ìàòðèö}
var
  a,b,c:MyArray;
  i,j,variant:integer;
  fl:boolean;
begin
  Writing('A',a);
  Writing('B',b);
  Vibor(a,b,c)
end.

unit Arrays;
const
  n=4;{ïîðÿäîê ìàòðèö}
type
  MyArray=array [1..n,1..n] of integer;
var
  a,b,c:MyArray;
  i,j,variant:integer;
  fl:boolean;
{ïðîöåäóðà çàïîëíåíèÿ è âûâîäà ìàòðèöû}
procedure Writing(const ch:char; var a:MyArray);
begin
  writeln('Èñõîäíàÿ ìàòðèöà ',ch,':');
  writeln('------------------');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j],' ')
    end;
    writeln
  end;
  writeln('------------------');
end;
{ïðîöåäóðà âûâîäà ìàòðèöû}
procedure Print(const a:MyArray);
begin
  writeln('Ïîëó÷åííàÿ ìàòðèöà C:');
  writeln('------------------');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j],' ');
    writeln
  end;
  writeln('------------------')
end;
{ïðîöåäóðà ñóììû ìàòðèö}
procedure Summ(const a,b:MyArray; var c:MyArray);
begin
  for i:=1 to n do
    for j:=1 to n do
      c[i,j]:=a[i,j]+b[i,j];
  print(c)
end;
{ïðîöåäóðà ðàçíîñòè ìàòðèö}
procedure Raz(const a,b:MyArray; var c:MyArray);
begin
  for i:=1 to n do
    for j:=1 to n do
      c[i,j]:=a[i,j]-b[i,j];
  print(c)
end;
{ôóíêöèÿ âûáîðà ÷òî áóäåì äåëàòü}
procedure Vibor(const a,b:MyArray; var c:MyArray);
begin
  writeln('Íàæìèòå:');
  writeln('1: A+B');
  writeln('2: A-B');
  writeln('0: ÷òîáû âûéòè');
  readln(variant);
  writeln('------------------');
  case variant of
    1:  summ(a,b,c);
    2:  raz(a,b,c);
    0:  exit;
  end
end;
end.

var f1:text;
    i,j:integer;
begin
  assign(f1,'imput.txt');
  reset(f1);
  for i:=1 to n do
    begin
      for j:=1 to m do
        read(f1,Matrix[i,j]);
    end;

  for i:=1 to n do
    begin
      for j:=1 to m do
        read(f1,Matrix[i,j]);
    end;