напишите программку выбора наивеличайшего из трёх введённых с клавиатуры действительных чисел

uses crt;
var a, b, c: word;
flag: char;

BEGIN
clrscr;
repeat
readln(a, b, c);
if (agt;b) and (agt;c) then write(a) else
if (bgt;a) and (bgt;c) then writeln(b) else
writeln(c);
write('Povtorit? (Y/N)');
readln(flag);
until upcase(flag)lt;gt;'Y';
writeln('dlya vihoda nazhmite kybuy klavishu');
readkey
end.

var a,b,c:real;
begin
read(a,b,c);
if (agt;=b)and(agt;=c) then writeln(a) else
if (bgt;=a)and(bgt;=c) then writeln(b) else
writeln(c)
end.

размышляю так