Исправить код, использующий условные операторы

proga;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, windows;
 
var
  n: integer;
  S1, S2, S3, Sob: integer;
  ost1, ost2, ost3: integer;
  ia, kor: integer;
  const z1=144;
  const z2=12;
  const z3=1;
  const c1=125500;
  const c2=11450;
  const c3=1150;
begin
  SetConsoleCp(1251);
  setconsoleoutputcp(1251);
  write('Ââåäèòå öåëîå ÷èñëî ïîêóïàåìûõ äèñêåò: ');
  readln(n);
  writeln('---');
    If n>z1 then
      begin
        ia:=n div z1;
        ost1:=n-(ia*z1);
        S1:=ia*c1;
        Writeln('ßùèêîâ = ', ia);
        Writeln('Îñòàëîñü äèñêåò ', ost1);
        Writeln('Öåíà çà ÿùèêè ', S1);
        Writeln('---');
      end
    else
      begin
        If ost1>z2 then
          begin
            kor:=ost1 div z2;
            ost2:=ost1-(kor*z2);
            S2:=kor*c2;
            Writeln('Êîðîáîê = ', kor);
            Writeln('Îñòàëîñü äèñêåò ', ost2);
            Writeln('Öåíà çà êîðîáêè ', S2);
            Writeln('---');
          end
        else
          begin
            If ost2>z3 then
              begin
                S3:=ost2*c3;
                Writeln('Äèñêåò = ', ost2);
                Writeln('Öåíà çà äèñêåòû ', S3);
                Writeln('---');
              end;
          end;
            Sob:=S1+S2+S3;
            Writeln('Èòîãî âû ïîòðàòèòå : ', Sob);
            readln;
            readln;
      end;
  Sob:=S1+S2+S3;
  Writeln('Èòîãî âû ïîòðàòèòå : ', Sob);
  readln;
  readln;
end.