Найти ошибки в коде

Program NANNY;
Var t: real;
Begin
    writeln('Òû â÷åðà áûë áîëåí. Èçìåðü òåìïåðàòóðó.');
    write ('Êàêàÿ òåìïåðàòóðà?');
    readln(t);
    if t>42
           then begin
                      writeln('Òû òðóï?Ïåðåìåðü òåìïåðàòóðó');
                      while t>42 do
           begin
                      readln(t);
           end
 
           else
                      if t>36.6;
          then begin
                     writeln('Òû åù¸ áîëåí! Ðàçäåâàéñÿ è ëîæèñü â ïîñåòëü.');
                     writeln('Ïîïðàâëÿéñÿ=)');
          end
          else begin
                     writeln('Çäàðîâ, çäàðîâ. Âàëè â øêîëó!');
          end
end.

Program "Timers" ;
var s, m: integer;
   begin
     s:=1;
     n:=1;
     m:=0;
     write(s);
     s:=1+n;
     while
     write(s);
     s:=1+n do s<>60
     if s:=60
             then
              s:=0;
              m:=1+m
             else
end

Program NANNY;
Var t: real;
Begin
    writeln('Ты вчера был болен. Измерь температуру.');
    write ('Какая температура?');
    readln(t);
    if t>42
           then begin
                      writeln('Ты труп?Перемерь температуру');
                      while t>42 do
           begin
                      readln(t);
           end;
           end
 
           else
                      if t>36.6
          then begin
                     writeln('Ты ещё болен! Раздевайся и ложись в посетль.');
                     writeln('Поправляйся=)');
          end
          else begin
                     writeln('Здаров, здаров. Вали в школу!');
          end
end.