Если k> s > m > p, то числа оставить без изменения - Turbo Pascal

Формулировка задачи:

ребята, помогите плиз!(( Вводятся действительные числа k, s, m,p. Если k> s > m > p, то числа оставить без изменения, в противном случае каждое число заменить наибольшим из них.

Решение задачи: «Если k> s > m > p, то числа оставить без изменения»

Листинг программы

var
  k,s,m,p,max: real;
begin
  write('Введите k, s, m, p: ');
  readln(k,s,m,p);
  max:=k;
  if s>max then max:=s;
  if m>max then max:=m;
  if p>max then max:=p;
  if not ((k>s) and (s>m) and (m>p)) then
  begin
    k:=max; s:=max; m:=max; p:=max;
  end;
  writeln('k = ',k,'; s = ',s,'; m = ',m,'; p = ',p);
  readln;
end.

Объяснение кода листинга программы

В начале объявляются переменные k, s, m и p, а также переменная max типа real.
Затем происходит чтение значений переменных k, s, m и p с помощью функции readln.
Значение переменной max устанавливается равным максимальному из значений переменных k, s, m и p.
Далее выполняется последовательность условий if, в которых значение переменной max устанавливается равным максимальному из значений переменных s, m и p в случае, если s, m или p больше max.
Если условия не выполняются, то значения переменных k, s, m и p присваиваются переменной max.
Наконец, выводится сообщение с значениями переменных k, s, m и p.
Выполняется чтение следующего ввода с помощью функции readln.