Простая программа на Pascal, помогите исправить ошибки

простая программа на Pascal, помогите исправить ошибки.
Program Time;
var T: real;
begin
writeln('Сколько сейчас время?');
write(' Cейчас ');
readln(T);
if(T>=6)and(T< =10)
then begin
writeln('Доброе утро!')
end;
if(T>=21)and(T< =24)
then begin
writeln('Доброе ночи!')
end
else begin
writeln('Доброе день!');
end;
readln;
end.
Программа работает, но при "утренних" значениях Т сразу два результата" Доброе утро!" и "Добрый день"

  • попробуй так (заодно русский исправлю)
    Program Time;
    var T: real;
    begin
    writeln('Сколько сейчас времени?');
    write(' Cейчас ');
    readln(T);
    if(T>=6)and(T< =10)
    then begin
    if(T>=21)and(T< =24) then
    writeln('Доброй ночи!') else writeln ('Доброе утро')ж
    end
    else
    writeln('Добрый день!');
    end;
    readln;
    end.
  • а где вечерние часы?
    Program Time;
    var T: real;
    begin
    writeln('Сколько сейчас время? ');
    write(' Cейчас ');
    readln(T);
    if(T>=6)and(T< =10) then writeln('Доброе утро! ')
    else if(T>=21)and(T< =24) then writeln('Добрый вечер! ')
    else if (T<6) then writeln('Доброй ночи! ')
    else writeln('Доброе день! ');
    end.
    либо можно было прописать после каждого вывода текста команду halt(перед end)