Program xxx;
uses crt;
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
input(a,15,13);
input(b,5,7);
Writeln('matrica a');
output(a,15,13);
Writeln('matrica b');
output(b,5,7);
Readkey;
max_A:=max_el(a,15,13);
max_B:=max_el(b,5,7);
Writeln('max_A=',max_A);
Writeln('max_B=',max_B);
Readln;
End.

uses crt;
var i:integer;
begin
  clrscr;
  gotoxy(1,1);
  for i:=1 to 80 do
   write('x');
  writeln('FIO : ');
  delay(3000);
end.

uses crt;
var i:integer;
begin
  clrscr;
  gotoxy(1,1);
  for i:=1 to 80 do
   write('*');
  writeln;
  writeln(' Programma : zastavka');
  writeln(' FIO : klem4 ');
  writeln(' Data : segodna ');
  gotoxy(1,1);
  for i:=1 to 48 do
   writeln('*');
  gotoxy(80,1);
  for i:=2 to 48 do
   writeln('*');
 gotoxy(1,48);
 for i:=1 to 80 do
  write('*');
 gotoxy(80,1);
 for i:=1 to 48 do
  begin
     gotoxy(80,i);
     writeln('*');
  end;
 delay(3000);
end.

Procedure Zastavka;
Begin
GoToXY(30,10);Write('**********************');
GoToXY(30,11);Write('*      Программа     *');
GoToXY(30,12);Write('*      Автор:ФИО     *');
GoToXY(30,13);Write('*    Дата:11.03.05   *');
GoToXY(30,14);Write('**********************');
Deley(5000);
End;

program xxx;
uses crt;
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);
 Writeln ( '*' );
end;
GotoXY(1,8);
Writeln ( '**********************' );
gotoXY(3,3);
writeln('Программа-заставка ');
gotoXY(3,5);
writeln(Автор:Света');
gotoXY(3,7);
writeln('Дата :11.03.05');
delay(60000);
clrscr;

Program xxx;
uses crt;
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
input(a,15,13);
input(b,5,7);
Writeln('matrica a');
output(a,15,13);
Writeln('matrica b');
output(b,5,7);
Readkey;
max_A:=max_el(a,15,13);
max_B:=max_el(b,5,7);
Writeln('max_A=',max_A);
Writeln('max_B=',max_B);
Readln;
End.

procedure zastavka;
begin
...
end;
...
...
Begin (основной программы)
zastavka;
дальше текст основной программы
...
end.