Одна сторона прямоугольника на 5 см. длиннее другой, а сумма их длин равна 17 см. Найти стороны этого прямоугольника- Pascal(Паскаль)

uses crt;

var
  summa, raz, st: real;
  storona1, storona2: real;

begin
  ClrScr;
  writeln('Введите сумму длин сторон прямоугольника');
  readln(summa);
  writeln('Введите на сколько одна сторона больше другой');
  readln(raz);
  st := (summa - raz) / 2;
  storona1 := st;
  storona2 := st + raz;
  write('ширина-', storona1:7:2, 'см.');
  write('длина-', storona2:7:2, 'см.');

end.