Выяснить, какой день был наиболее холодным, а также какой это был день недели

uses crt;
const n=10;
var t:array[1..n]of integer;
    i,min,imin:integer;
begin
clrscr;
for i:=1 to n do
    begin
     write('t[',i,']=');
     readln(t[i]);
    end;
min:=t[1]; imin:=1;
for i:=2 to n do
if t[i]<min then
    begin
      min:=t[i];
      imin:=i;
    end;
write('Самый холодный день: ',imin,' января');
if imin mod 7=0 then write(' это воскресенье')
else if imin mod 7=1 then write(' это понедельник')
else if imin mod 7=2 then write(' это вторник')
else if imin mod 7=3 then write(' это среда')
else if imin mod 7=4 then write(' это четверг')
else if imin mod 7=5 then write(' это пятница')
else if imin mod 7=6 then write(' это суббота');
readln
end.

uses crt;
var s:string;
    i,k,k3,k4,k5:integer;
begin
clrscr;
repeat
write('s=');
readln(s);
k:=0;
for i:=1 to length(s) do
if not (s[i] in ['3'..'5']) then {если в строке есть символы не входящие в множество цифр 3-5}
   begin
    writeln('Неверно введены данные! Повторите ввод.');
    k:=1;
    break; {выход из цикла}
   end;
until k=0;
k3:=0;k4:=0;k5:=0;
for i:=1 to length(s) do
if s[i]='3' then k3:=k3+1
else if s[i]='4' then k4:=k4+1
else if s[i]='5' then k5:=k5+1;
write('K3=',k3,'  K4=',k4,'  K5=',k5);
readln
end.

procedure Start (var T:longint);
begin
T:=SystemTimer;
end;
procedure Stop (var T:longint);
begin
T:=SystemTimer-T;
end;
 
procedure Pause (T:longint; Show:boolean);
var Xn,Xt:longint;
begin
Xt:=0;
Xn:=SystemTimer;
While ((Xt-Xn)/18.2)*1000 < T do
begin
Xt:=SystemTimer;
If Show then
writeln((xt-xn)/18.2:6:4)
end;
end;

Program tim;
 
uses crt;
var timm:integer;
 
Procedure DecTimer(inp:integer);
begin
  dec(inp,1);
  delay(1000);
  writeln(inp);
end;
 
begin
 timm:=100;
 repeat
  dectimer(timm);
  {тут можно размещать дополнительный код программы}
 until timm<0;
end.