ПОМОГИТЕ СРОЧНО НАДО!!!

Записать в тетради программу, которая выводит на экран максимальное из трех введенных с клавиатуры чисел.

var i,a,b,c:integer;

begin

   write('Введите число A: '); read(a);

   write('Введите число B: '); read(b);

   write('Введите число C: '); read(c);

   if a > b then i := a else i := b;

   if c > i then i := c else i := i;

   write('Самое большое число из 3 чисел = ',i);

end.

program znanija;

var

a,b,c:real;

begin

writeln('Введите три числа');

readln(a,b,c);

if ((a>c) and (c>b))or ((a>b) and (b>c)) then

writeln('Максимальное число ',a);

if ((c>a) and (a>b))or ((c>b) and (b>a)) then

writeln('Максимальное число ',c);

if ((b>a) and (a>c))or ((b>c) and (c>a)) then

writeln('Максимальное число ',b);

end.