Исключил возможность ошибки, если температура равна. если не нужно, удали последний "if"
program z;
var t1, t2:real;
begin
writeln(Введите среднюю температуру вчера);
readln(t1);
writeln(Введите температуру сегодня);
readln(t2);
if t1gt;t2 then writeln(Сегодня холоднее);
if t1lt;t2 then writeln(Сегодня теплее);
if t1=t2 then writeln(Температура сегодня и вчера одинакова);
end.