прикладная математика

Var week: array [1..5] of real;//массив пройденного пути по дням недели
  a,b,total: real;
  n,i:byte;

procedure ClearWeek; //очистка массива за неделю
begin
  week[1]:=0;
  week[2]:=0;
  week[3]:=0;
  week[4]:=0;
  week[5]:=0;
end;

begin
  writeln('введите А');
  readln(a);
  writeln('введите В');
  readln(b);
  writeln('количество дней');
  readln(n);
  ClesrWeek;
  total:=0; //сколько всего пройдено
  for i:=1 to n do
   case (i mod 7) of
    1: writeln('День ',n,' пон, пройдено', mon:3:2,'км');
    2: writeln('День ',n,' втр, пройдено', Tue:3:2,'км');
    3: writeln('День ',n,' срд, пройдено', Wed:3:2,'км');
    4: writeln('День ',n,' чет, пройдено', Thu:3:2,'км');
    5: writeln('День ',n,' птн, пройдено', Fri:3:2,'км');
    6: writeln('День ',n,' сбт, пройдено 0 км');
   else  
    begin
     ClearWeek;
     writeln('День ',n,' вск, пройдено 0 км');
    end;
   {end;}//не помню нужен тут или нет.
  writeln('всего за ',n, ' дней, пройдено ',total:3:2,' километров.');
end.

function Mon:real;//функции по дням недели
begin
  randomize;
  week[1]:=random(b-a+1)+a;
  total:=total+week[1];
  Mon:=week[1];
end;

function Tue:real;
begin
  week[2]:=week[1]*2;
  total:=total+week[2];
  Tue:=week[2];
end;

function Wed:real;
begin
  week[3]:=week[2]/3;
  total:=total+week[3];
  Wed:=week[3];
end;

function Thu:real;
begin
  week[4]:=1.4*week[3];
  total:=total+week[4];
  Thu:=week[4];
end;

function Fri:real;
begin
  week[5]:=(week[2]+week[3]+week[4])/2;
  total:=total+week[5];
  Fri:=week[5];
end;