uses crt;

procedure title;
var i: integer;
begin
  clrscr;
  gotoxy(1, 1);
  writeln( '**********************' );
  for i := 0 to 5 do begin
    gotoxy(1, i+2); write( '*' );
    gotoxy(22, i+2); write( '*' );
  end;
  gotoxy(1, 8);
  writeln( '**********************' );
  gotoxy(3, 3); writeln('programma - zastavka');
  gotoxy(3, 5); writeln('avtor:sveta');
  gotoxy(3, 7); writeln('data :11.03.05');
  delay(60000);
  clrscr;
end;

type
  matrica = array[1..15, 1..13] of integer;

var
  A, B: matrica;
  maxA, maxB: integer;

procedure input(var d: matrica;
          n, k: integer);
var
  i, j: integer;
begin
  randomize;
  for i := 1 to n do begin
    for j:= 1 to k do
      d[i, j] := random(100)
  end;
end;

procedure output(var d: matrica;
          n, k: integer);
var
  i, j: integer;
begin
  for i := 1 to n do begin
    for j := 1 to k do
      write(d[i, j]:4);
    writeln;
  end;
end;

function max_el(d: matrica;
         n, k: integer): integer;
var
  i, j, max: integer;
begin
  max := d[1, 1];
  for i := 1 to n do begin
    for j := 1 to k do
      if d[i, j] > max then
        max := d[i, j];
    max_el := max
  end;
end;


begin
  title;

  input(a,15,13);
  input(b,5,7);
  Writeln('matrica a');
  output(a,15,13);
  Writeln('matrica b');
  output(b,5,7);
  Readkey;
  maxA := max_el(a,15,13);
  maxB := max_el(b,5,7);
  Writeln('max_A=', maxA);
  Writeln('max_B=', maxB);
  readln
End.