не могу домашнее задание решить 5 урок Опции

[Malder]

все сделал а 2 и 3 не могу уже 10 раз читал помогите. :-[

[Clane]

Насчет часов и приветствия !
program nineteen;
uses crt;
var
chas:Byte;
begin
clrscr;
write('‘Є®«мЄ® ᥩз б ўаҐ¬Ґ­Ё (­ ЇЁиЁвҐ жЁда ¬Ё): ');
readln(chas);
if chas>=6 then
if chas<12 then write('„®Ўа®Ґ гва®!')
else
if chas>=12 then
if chas<18 then write('„®Ўал© ¤Ґ­м!')
else
if chas>=18 then
if chas<22 then write('„®Ўал© ўҐзҐа!')
else
if chas>=22 then
if chas<=24 then
write('„®Ўа®© ­®зЁ!');
if chas<6 then write('„®Ўа®© ­®зЁ!');
if chas>24 then write('‚л б г¬  б®и«Ё, зв® «Ё?');
readln;
end.
Это программа со строками !
program eighteen;
uses crt;
var
c,d:Char;
s,h:String;
label
again;
begin
clrscr;
again:
write('‚ўҐ¤ЁвҐ бЁ¬ў®«: ');
readln©;
s:=s+c;
write('‚ўҐ¤ЁвҐ бЁ¬ў®«: ');
readln©;
s:=s+c;
write('‚ўҐ¤ЁвҐ бЁ¬ў®«: ');
readln©;
s:=s+c;
write('‚ўҐ¤ЁвҐ бЁ¬ў®«: ');
readln©;
s:=s+c;
write('•ў вЁв ўў®¤Ёвм бЁ¬ў®«л? (Y/N): ');
readln(d);
if d<>'Y' then
goto again
else
write('‚ўҐ¤ЁвҐ бва®Єг: ');
readln(h);
if h=s then
begin
writeln('‘Ё¬ў®«л Є®в®алҐ ўл ўў®¤Ё«Ё Ё ў и  бва®зЄ  б®ўЇ ¤ ов!');
write(s, ' = ',h);
readln;
end
else
begin
writeln('‘Ё¬ў®«л Є®в®алҐ ўл ўў®¤Ё«Ё Ё ў и  бва®зЄ  ­Ґ б®ўЇ ¤ ов!');
write(s,' <> ',h);
readln;
end;
end.