помагите исправить программу Опции

[eldar219]

у меня программа работает,просто выдает ошибку 106,я просто не уверенно записал в Var Sпомогите как исправить на правильную запись

Program Raspisanie_na_nedelu;
const
Question='RASPISANIE PREDMETOV NA NEDELU!!NAJMITE NA KLAVIWU<ENTER>';
Question2='Privetstvuyu vas!!! VVEDITE POJALUYSTA VAWE IMYA*****';

DEN1='ANGLIYSKIY, MATEMATIKA, FIZIKA, YAZ.PROGRAMMIROVANIYA*****';
DEN2='ISTORIYA(2 uroka), YAZ.PROGRAMMIROVANIYA*****';
DEN3='ANGLIYSKIY,USTROYSTVO PO(2 uroka)*****';
DEN4='ISTORIYA, FIZIKA*****';
DEN5='MATEMATIKA*****';
var Name:string;age:byte;num,s:real;
begin
writeln(Question);readln;
writeln(Question2);readln(name);
writeln('DOBRIY DEN,',Name,'!');

REPEAT
writeln('VVEDITE DEN NEDELI');
readln(age);
case age of
1:writeln(DEN1);
2:writeln(DEN2);
3:writeln(DEN3);
4:writeln(DEN4);
5:writeln(DEN5);
 else writeln('V ETI DNI VI NE UCHETES !!!');
end;
until(s>=6) {я здесь хотел сказать что дальше 6 нельзя писать,мне нужно здесь исправление}

end.

[Unconnected]

Program Raspisanie_na_nedelu;
const
Question='RASPISANIE PREDMETOV NA NEDELU!!NAJMITE NA KLAVIWU<ENTER>';
Question2='Privetstvuyu vas!!! VVEDITE POJALUYSTA VAWE IMYA*****';

DEN1='ANGLIYSKIY, MATEMATIKA, FIZIKA, YAZ.PROGRAMMIROVANIYA*****';
DEN2='ISTORIYA(2 uroka), YAZ.PROGRAMMIROVANIYA*****';
DEN3='ANGLIYSKIY,USTROYSTVO PO(2 uroka)*****';
DEN4='ISTORIYA, FIZIKA*****';
DEN5='MATEMATIKA*****';
var Name:string;age:byte;num,s:real;
begin
writeln(Question);readln;
writeln(Question2);readln(name);
writeln('DOBRIY DEN,',Name,'!');

REPEAT
writeln('VVEDITE DEN NEDELI');
readln(age);
case age of
1:writeln(DEN1);
2:writeln(DEN2);
3:writeln(DEN3);
4:writeln(DEN4);
5:writeln(DEN5);
else writeln('V ETI DNI VI NE UCHETES !!!');
end;
until(age>=6) {изменено условие}

end.

А s вообще не нужна. Ошибка 106 - Invalid numeric format - возникала, когда в математическое выражение подставлялось не число, т.е. если ты в качестве номера дня вводил букву, например.