Найти ошибку в программе с массивом

procedure uu;
const 
N=4;
Услуги:[1..N] of string = ('Посещение бань','Спа-процедуры','Физиопроцедуры','Массаж');
var i: byte;
sum: real;
price: array[1..N]of real = (700,1200,900,1900);
begin
  Usl[1]:='Посещение бань';
  Usl[2]:='Спа-процедуры';
  Usl[3]:='Физиопроцедуры';
  Usl[4]:='Массаж';
end;
for i:=1 to 4 do
  writeln(i,'.',Usl[i],'-',price[i]:5,'руб.');
  writeln('0. Завершить выбор услуг');
sum:=0;
while True do 
  begin writeln ('Услуга: ');
  readln(NumberUsl);
  if Usl=0 then break;
  begin
  case NumberUsl of
    1: writeln(s,'Услуга: ':2,Usl[1],'-',price[1]:5,'руб.');
    2: writeln(s,'Услуга: ':2,Usl[2],'-',price[2]:5,'руб.');
    3: writeln(s,'Услуга: ':3,Usl[3],'-',price[3]:5,'руб.');
    4: writeln(s,'Услуга: ':2,Usl[4],'-',price[4]:5,'руб.');
  end;
  writeln('Введите 0, если хотите завершить выбор услуг');
  sum:=sum+price[NumberUsl];
  end;
  writeln('Цена услуг: ',sum:6:2);
  writeln(f,'Цена услуг: ',sum:6:2);
  end;

type
  типУслуги = record
    имя : String;
    цена : Integer;
    
  end;
  
var Услуги : array of типУслуги := (
    (имя: 'Посещение бань'; цена: 700 ),
    (имя: 'Спа-процедуры' ; цена: 1200),
    (имя: 'Физиопроцедуры'; цена: 900 ),
    (имя: 'Массаж'        ; цена: 1900)
  );
  
begin
  'Услуги:'.Println; Услуги.Select((v,i)->$'  {i+1} -  {v.имя}').PrintLines;
  
  var u := New List<integer>; // Список выбранных услуг
  var theEnd := False; // признак окончания выбора услуг
  repeat
    Println;
    var n:=ReadInteger('Номер услуги или 0:');
 
    if n.InRange(1, Услуги.Count) then // добавить услугу если ещё не выбрана
      begin
        if u.Contains(n) then
          $'Услуга „{Услуги[n-1].имя}“ уже присутствует в списке.'.Println
        else
          begin
            $'Услуга „{Услуги[n-1].имя}“ добавлена в список. Цена услуги {Услуги[n-1].цена} руб.'.Println;
            u.Add(n);
          end;
      end
 
    else if n = 0 then theEnd := True // признак завершения
 
    else 'Такого номера услуги нет.'.Println; // косяк
 
  until theEnd;
  
  Println;
  if u.Count = 0 then
    'Не выбрано ни одной услуги.'.Println
  else if u.Count = 1 then
    $'Выбрана услуга: „{Услуги[u[0]-1].имя}“. Цена услуги {Услуги[u[0]-1].цена} руб.'.Println
  else
    begin
      'Выбраны следующие услуги:'.Println;
      var sum := 0;
      foreach var n in u do
        begin
          $'  „{Услуги[n-1].имя}“ — {Услуги[n-1].цена} руб.'.Println;
          sum += Услуги[n-1].цена;
        end;
      $'Итого общая стоимость составляет {sum} руб.'.Println;
    end;
end.