1.1 Программа создания файла с записями (как это положено делать):

type
  r = record
    group: string[24];
    album: string[24];
    year: string[4];
    style: string[12]
  end;

var
  F: file of r;
  st: r;

begin
  Assign(F, 'Groups.txt');
  Rewrite(F);
  with st do 
  begin
    repeat
      Write('Название группы: '); Readln(group);
      Write('Название альбома: '); Readln(album);
      Write('Год выпуска: '); Readln(year);
      Write('Стиль (маленькие буквы): '); Readln(style);
      if group <> '*' then Write(F, st)
    until group = '*'
  end;
  Close(F)
end.

1.2 Ввод данных:

Название группы: Led Zeppelin
Название альбома: LedZeppelin IV
Год выпуска: 1971
Стиль (маленькие буквы): rock
Название группы: Boney M
Название альбома: Oceans of Fantasy
Год выпуска: 1979
Стиль (маленькие буквы): pop
Название группы: Baccara
Название альбома: Made In Spain
Год выпуска: 1999
Стиль (маленькие буквы): disco
Название группы: The Beatles
Название альбома: Revolver
Год выпуска: 1966
Стиль (маленькие буквы): rock
Название группы: SHAKATAK
Название альбома: Across the World
Год выпуска: 2011
Стиль (маленькие буквы): jazz
Название группы: *
Название альбома: *
Год выпуска: *
Стиль (маленькие буквы): *

1.3. Программа с выборкой по условию (данные хранятся в файле):

type
  r = record
    group: string[24];
    album: string[24];
    year: string[4];
    style: string[12]
  end;

var
  F: file of r;
  st: r;

begin
  Assign(F, 'Groups.txt');
  Reset(F);
  with st do 
  begin
    while not EOF(F) do 
    begin
      Read(F, st);
      if (style = 'rock') or (style = 'pop') then begin
        Writeln('Название группы: ', group);
        Writeln('Название альбома: ', album);
        Writeln('Год выпуска: ', year);
        Writeln('Стиль: ', style)
      end
    end;
    Write(F, st)
  end;
  Close(F)
end.

1.4. Результирующая выборка:

Название группы: Led Zeppelin
Название альбома: LedZeppelin IV
Год выпуска: 1971
Стиль: rock
Название группы: Boney M
Название альбома: Oceans of Fantasy
Год выпуска: 1979
Стиль: pop
Название группы: The Beatles
Название альбома: Revolver
Год выпуска: 1966
Стиль: rock

1.5. Реализация с помощью массивов (как написано в задании, данные не сохраняются):

const
  n = 10;{максимальное количество групп}

var
  m: array[1..n, 1..4] of string;
  i, k: integer;

begin
  k := 1;
  repeat
    Write('Название группы: '); Readln(m[k, 1]);
    Write('Название альбома: '); Readln(m[k, 2]);
    Write('Год выпуска: '); Readln(m[k, 3]);
    Write('Стиль (маленькие буквы): '); Readln(m[k, 4]);
    k := k + 1;
  until m[k - 1, 1] = '*';
  Writeln('*** Выборка данных ***');
  for i := 1 to k - 1 do
  begin
    if (m[i, 4] = 'rock') or (m[i, 4] = 'pop') then begin
      Writeln('Название группы: ', m[i, 1]);
      Writeln('Название альбома: ', m[i, 2]);
      Writeln('Год выпуска: ', m[i, 3]);
      Writeln('Стиль: ', m[i, 4])
    end
  end;
end.

1.6. Тестовое решение:

Название группы: Led Zeppelin
Название альбома: LedZeppelin IV
Год выпуска: 1971
Стиль (маленькие буквы): rock
Название группы: Boney M
Название альбома: Oceans of Fantasy
Год выпуска: 1979
Стиль (маленькие буквы): pop
Название группы: Baccara
Название альбома: Made In Spain
Год выпуска: 1999
Стиль (маленькие буквы): disco
Название группы: The Beatles
Название альбома: Revolver
Год выпуска: 1966
Стиль (маленькие буквы): rock
Название группы: SHAKATAK
Название альбома: Across the World
Год выпуска: 2011
Стиль (маленькие буквы): jazz
Название группы: *
Название альбома: *
Год выпуска: *
Стиль (маленькие буквы): *
*** Выборка данных ***
Название группы: Led Zeppelin
Название альбома: LedZeppelin IV
Год выпуска: 1971
Стиль: rock
Название группы: Boney M
Название альбома: Oceans of Fantasy
Год выпуска: 1979
Стиль: pop
Название группы: The Beatles
Название альбома: Revolver
Год выпуска: 1966
Стиль: rock