Записи

uses crt;
type tv=record
        naz:string[30];
        prd:real;
        gan:string[15];
       end;
  mas=array [1..100,1..20] of tv;
 var
buf:mas;
ch:char;
i,j,n,m:integer;
procedure vv(var buf:mas;var n,m:integer);
var c,c2:char;
i,j:integer;
begin
j:=1;
i:=1;
while c<>'n' do
 begin
 clrscr;
 writeln(i,' audiokaseta');
 n:=i;
  while c2<>'n' do
  begin
  m:=j;
  write('vvedite nazvanie pesni:      ');
  readln(buf[i,j].naz);
  write('vvedite prodolgitelnost:    ');
  readln(buf[i,j].prd);
  write('vvedite gjanr:        ');
  readln(buf[i,j].gan);
  writeln('prodolgit? y/n: ');
  writeln;
  inc(j);
  c2:=readkey;
  end;
 c2:=' ';
 inc(i);
 clrscr;
 writeln('eshe kaseta? y/n');
 c:=readkey;
 end;
end;
 
procedure sort(buf:mas;n,m,i,j:integer);
var _prd,_prd_:integer;
i2,i3,j2,j3:byte;
begin
_prd:=buf[1,1].prd;
_prd_:=buf[1,1].prd;
for i:=1 to n do
 for j:=1 to m do
  if buf[i,j].prd>_prd then
   begin
   _prd:=buf[i,j].prd;
   i2:=i;
   j2:=j;
   end
  else if buf[i,j].prd<_prd_ then
  begin
  _prd_:=buf[i,j].prd;
  i3:=i;
  j3:=j;
  end;
clrscr;
writeln('samay dolgay pesnay');
writeln;
writeln('nomer kaseti: ',i2);
writeln('nazvanie:        ',buf[i2,j2].naz);
writeln('prodolgitelnost: ',buf[i2,j2].prd:5:2,'min');
writeln;
writeln;
writeln;
writeln('samay korotkay pesnay');
writeln;
writeln('nomer kaseti: ',i3);
writeln('nazvanie:        ',buf[i3,j3].naz);
writeln('prodolgitelnost: ',buf[i3,j3].prd:5:2,'min');
writeln('gjanr:           ',buf[i3,j3].gan);
readln;
end;
 
BEGIN
while ch<>'3' do
begin
clrscr;
gotoxy(25,9); writeln('==============================');
gotoxy(25,10);writeln('| 1:vvod dannih              |');
gotoxy(25,11);writeln('| 2:korotkay i dlinnay pesni |');
gotoxy(25,12);writeln('| 3:vihod                    |');
gotoxy(25,13);writeln('==============================');
gotoxy(5,22);write('vvedite nomer puncta meny: ');
ch:=readkey;
case ch of
'1':vv(buf,n,m);
'2':sort(buf,n,m,i,j);
end;
end;
END.