Виды информационных каналов 2-3​

Программа рассчитана на то, что на экран выводится самый последний массив с результатами.

uses crt;
const
p=5;
r=5;
s=5;
var a:array[1..p] of integer;
b: array[1..r] of integer;
c: array[1..s] of integer;
m: array[1..3] of integer;
k,l,i,g,j,d,v,n:integer;
begin

readln(l);
  writeln;
 
for i:=1 to p do
readln(a[i]);
   writeln;
  
for j:=1 to r do
readln(b[j]);
     writeln;
    
for g:=1 to s do
readln(c[g]);
     writeln;
    
for i:=1 to p-1 do
repeat
d:=0;
if a[i]>a[i+1] then
begin
d:=1;
a[i]:=a[i]+a[i+1];
a[i+1]:=a[i]-a[i+1];
a[i]:=a[i]-a[i+1];
end;
until d=0;

for j:=1 to r-1 do
repeat
d:=0;
if b[j]>b[j+1] then
begin
d:=1;
b[j]:=b[j]+b[j+1];
b[j+1]:=b[j]-b[j+1];
b[j]:=b[j]-b[j+1];
end;
until d=0;

for g:=1 to s-1 do
repeat
d:=0;
if c[g]>c[g+1] then
begin
d:=1;
c[g]:=c[g]+c[g+1];
c[g+1]:=c[g]-c[g+1];
c[g]:=c[g]-c[g+1];
end;
until d=0;

for i:=1 to p do
if a[i]=l then inc(v);
m[1]:=v;
v:=0;

for j:=1 to r do
if b[j]=l then inc(v);
m[2]:=v;
v:=0;

for g:=1 to s do
if c[g]=l then inc(v);
m[3]:=v;

for n:=1 to 2 do
repeat
d:=0;
if m[n]>m[n+1] then
begin
d:=1;
m[n]:=m[n]+m[n+1];
m[n+1]:=m[n]-m[n+1];
m[n]:=m[n]-m[n+1];
end;
until d=0;

for n:=1 to 3 do
writeln(m[n]);
end.

Печально, придется придумывать, а фантазия иногда ведет не в ту стпень, но не суть.
Лично мне кажется что неплохо было бы хранить в БД под названием погода информацию относительно погоды, скажем гидромежцентра или как его там а значит объектами будут - температура влажность ветер дождь и тд если бы я ее проектировал то в качестве ключа выбрал бы дату, потому как она явно уникальна и прогнозы идут каждый день
далее успеваемость - допустим успеваемость студента в универе, а значит неплохо бы в качестве объектов задать предметы по которым интересует успеваемость(обычно все) в качестве ключа можно взять любой уникальный идентификатор, хоть серию в паспорте хоть ИНН, но рас уж у нас универ пусть будет номер студенческого билета, или зачетной книжки
и наконец факультативы - нужен перечень всех факультативов(причем не важно посещает все или не посещает ни одного), не слышал чтобы в школах были факультативы, так что предположу что учебное заведение чуть чуть повыше а значит в качестве ключа так же подойдет номер студ билета