Даны три числа а,б,с найти наибольшее и вывести на экран - Turbo Pascal

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

Надо сделать используя if,then,else я сделал так

PROGRAM naibolshee;
Uses crt;
Var a,b,c: read;
BEGIN
Clrscr;
read (a,b,c)
if (a>b) and (a>c) then
begin
writeln ('naibolshee a=',a);
end
else 
if (b>a) and (b>c) then
begin
writeln ('naibolshee b=',b);
end
else
if (c>a) and (c>b) then
begin 
writeln('naibolshee c=',c);
end
end.

Пробовал уже 2-3 способами,проблема в том что наибольшее не выводится.

Решение задачи: «Даны три числа а,б,с найти наибольшее и вывести на экран»

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

PROGRAM naibolshee;
Uses crt;
Var a,b,c,mx: real;
BEGIN
Clrscr;
readln (a,b,c);
if a>b then mx:=a else mx:=b;
if c>mx then mx:=c;
writeln('naibolshee=',mx);
readkey
end.

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

Этот код написан на языке Turbo Pascal и выполняет следующие действия:

Объявляет три переменные типа real: a, b и c.
Считывает три числа с помощью функции readln.
Если значение переменной a больше значения переменной b, то присваивает переменной mx значение a. В противном случае, если значение переменной b больше значения переменной a, то присваивает переменной mx значение b.
Если значение переменной c больше значения переменной mx, то присваивает переменной mx значение c.
Выводит на экран сообщение naibolshee=, сопровождаемое значением переменной mx.
Ждет ввода с клавиатуры с помощью функции readkey.