Составить программку, которая по введенному значению выводит оценки по арифметике, физике,

USES Crt; LABEL R1,R2;
VAR nbsp;X: INTEGER; nbsp;nbsp;nbsp;M:CHAR; BEGIN
nbsp;nbsp;R1:ClrScr; nbsp;nbsp;WriteLn(ПРГ выводит оценки по математике, физике и химии);
nbsp;nbsp;WriteLn(1.Вывод оценок по предметам);
nbsp;nbsp;WriteLn(2.Выход);
nbsp;nbsp;WriteLn(Введите номер пт); nbsp;
nbsp;nbsp;ReadLn (X);
nbsp;nbsp;CASE X OF
nbsp;nbsp;1: Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ClrScr; nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn( По какому предмету Вы желаете узреть оценки); nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn( М - математика);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn( Ф - физика);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn( Х - химия);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ReadLn(M);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;CASE M OF
nbsp; nbsp; М,м:WriteLn(5 5 4 4 5 5 3 5 5 );
nbsp; nbsp; Ф,ф:WriteLn(5 4 5 3 5 4 5 5 5 );
nbsp; nbsp; Х,х:WriteLn(4 3 5 3 4 4 4 5 );
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;2: Begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn(Программа окончена);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;GoTo R2;
nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;Else
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;WriteLn(Номер неверен); ReadLn;
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;GoTo R1;
nbsp;nbsp;End;
nbsp;R2:End.