Составить программу, которая выводит на экран сообщение в зависимости от введенного значения температуры

Program Pogoda;
{ Составить программу, которая выводит на экран сообщение в зависимости от введенного значения температуры, например -50...-20 очень холодно, -19...-10 холодно и т.д..}
Uses crt;          
var  A:integer;  
begin
       write ('Введите температуру =  ');
    readln (A);
    if A=-20 then writeln ('Очень холодно!!!')
               else if A=-10 then writeln ('Холодно!')
               else if A=0 then writeln ('Прохладно.')
               else if A;=10 then writeln ('Тепло.')
               else if A;=25 then writeln ('Жарко')
               else if A;=35 then writeln ('Очень жарко!!!');
     readln
     end.

...
if (a ;=-50) and (a=-20) then ...
if (a ;=-19) and (a=-10) then ...
...

program pogoda;
uses crt;
label 1;
var a,b:real;
begin
1:clrscr;
  writeln('введите температуру');
  readln(a);
  if a<=-30 then writeln('жэсть как холодно');
  if (a>-30) and (a<=-20) then writeln('очень олодно');
  if (a>-20) and (a<=-10) then writeln('холодно');
  if (a>-10) and (a<=10) then writeln('так себе');
  if (a>10) and (a<=20) then writeln('нормально');
  if (a>20) and (a<=35) then writeln('тепло');
  if a>35 then writeln('жарко');
  readkey;
  clrscr;
  writeln('ещё раз?');
  writeln('1.нет*');
  writeln('2.*да');
  readln(b);
  if b=1 then goto 1;
end.

readln(t);
case t of 
-20: writeln ('Очень холодно');
-10: writeln ('Холодно');
0: writeln ('Прохладно');
10: writeln('Тепло');
25: writeln('Жарко');
35: writeln('Очень жарко');
end;