Даны массивы:N1,…,N7 — наименование операций по ремонту оборудования;S1,…,S7 — стоимость каждой операции; 1.Напечатать список операций,стоимость которых от 100 до 150 рублей. 2.Указать самую дорогую операцию — Pascal(Паскаль)

type
  mast = record
    usluga: string[50];
    tsena: real;
  end;
 
var
  a: array[1..100] of mast;
  i, n: integer;
  max: integer;
 
 
begin
  writeln('размер базы услуг');
  read(n);
  for  i := 1 to n do 
  begin
    with a[i] do 
    begin
      writeln('услуга');
      readln(usluga);
      writeln('стоимость');
      readln(tsena);
    end;
  end;
  writeln('предоставляемые услуги');
  for i := 1 to n do 
  begin
    writeln(a[i].usluga, ' ', a[i].tsena);
  end;
  max := 1;
  for i := 1 to n do 
  begin
    if a[i].tsena > a[max].tsena then begin
      max := i;
    end;
  end;
  writeln('самая дорогая услуга', ' ', a[max].usluga, ' ', a[max].tsena);
  writeln('меньше 150 но больше 100');
  for i := 1 to n do 
  begin
    if (a[i].tsena > 100) and (a[i].tsena < 150) then begin
      writeln(a[i].usluga, ' ', a[i].tsena);
    end;
  end;
readln;
end.