Напечатать название и продолжительность самой длинной песни, и жанр и продолжительность самого короткого произведения

var
  N: integer;
  maxLength, minLength: real;
  maxLengthName, minLengthName, maxLengthGenre, minLengthGenre: string;
 
begin
  write('Enter the number of tapes: ');
  readln(N);
 
  maxLength := 0;
  minLength := 99999999;
 
  for i := 1 to N do
  begin
    write('Enter the name of tape ', i, ': ');
    readln(name);
    write('Enter the number of songs in tape ', i, ': ');
    readln(numSongs);
 
    for j := 1 to numSongs do
    begin
      write('Enter the name of song ', j, ': ');
      readln(songName);
      write('Enter the length of song ', j, ': ');
      readln(songLength);
      write('Enter the genre ofsong ', j, ': ');
      readln(songGenre);
 
      if songLength > maxLength then
      begin
        maxLength := songLength;
        maxLengthName := songName;
        maxLengthGenre :=songGenre;
      end;
      ifsongLength < minLength then
      begin
        minLength :=songLength;
        minLengthName :=songName;
        minLengthGenre :=songGenre;
      end;
    end;
  end;
 
  writeln('The longest song is ', maxLengthName, ' with a length of ', maxLength);
  writeln('The shortest song is ', minLengthName, ' with a length of ', minLength);
  writeln('The genre of the longest song is ', maxLengthGenre);
  writeln('The genre of the shortest song is ', minLengthGenre);
  readln;
end.