Дано трёхзначное число. Найти среди цифр этого числа, максимальное. Программа в Паскале

var y,r,z,t,s:integer; begin readln(y); {считывание входящих данных}r:=(y div 100); {поочередно ищем цифру сотых, десятых и единиц, присваивая их соответствующим переменным}z:=y-(r*100); t:=(z div 10); s:=z-t*10;if r<t then r:=t; {ищем наибольшую цифру в нашем числе}if r<s then r:=s;writeln(r); {вывод результата }end. {конец работы алгоритма}