program ks001(input,output);
type Days=(Mon,Tue,Wed,Thu,Fri);
var day : Days;
a,total : integer;

procedure writeSday(day:Days);
begin;
case day of
Mon:writeln('月');
Tue:writeln('火');
Wed:writeln('水');
Thu:writeln('木');
Fri:writeln('金');
end;
end;

begin
total := 0;
for day := Mon to Fri do
begin;
writeSday(day);
write('曜日の時間数は?');
readln(a); writeln;
total := total + a;
end;
writeln('１週間の時間数は ',total:4,' 時間です．')
end.

新規作成のコンソールアプリケーションからこのソースを書いたのですが、Delphi6でいざ実行すると「Runtime error 105 at 004026AC」と出ます
ちゃんとパッチも全部当てたのに何でなるのやら　_no

誰か教えてください、お願いします　(´･ω･`)