Дан файл содержащий сведения об аптеках города. одна запись содержит: название улицы, №аптеки, режим работы. Вывести на экран адреса аптек работающих по выходным(суб,воскр) — Pascal(Паскаль)

file1.txt
Маяковского
№3
kruglosuto4no
Вишневского
№7
nekruglosuto4no
Абсалямова
№12
kruglosuto4no

Program apteka;

const
  n = 3;

type
  apt = record
    ylica, nomer, rejim: string;
  end;

var
  f: text;
  gruppa: array [1 .. 3] of apt;
  i: integer;
  uch: apt;

begin
  assign(f, 'file1.txt'); { указать путь }
  reset(f);
  for i := 1 to n do
  begin
    readln(f, gruppa[i].ylica);
    readln(f, gruppa[i].nomer);
    readln(f, gruppa[i].rejim);
  end;
  close(f);
  assign(f, 'result.txt');
  rewrite(f);
  for i := 1 to n do
  begin
    if gruppa[i].rejim = 'kruglosyto4no' then
    begin
      writeln(f, gruppa[i].ylica);
      writeln(f, gruppa[i].nomer);
    end;
  end;
  close(f);
  readln;

end.