Разработать программу проверки знаний пользователя

Program kr11;
Var i,f,p,l,j,m,k,g,s:integer; r:boolean;
S1,s3,s4,s5,s6,s7,s8,s9:string;
S2,d:string;
begin
r:=false;  f:=1; p:=1; s1:='var,boolean';
                       s7:='boolean,const';
                       s3:='const,type';
                       s4:='type,string';
                       s5:='var,string';
                       s8:='boolean,string';
                       s9:='const,string';
While f<=3 do begin
writeln;
Writeln ('Napishite cherez zapituy slova opisivaemie v opisatelnoi chaste programmi Pascal?'); readln(s2);
  If s2='?' then
              begin
               writeln;
               writeln;
               writeln ('              Spravka');
               writeln ('              Mojno vvesti: ' );
               writeln ('              2. boolean,const ');
               writeln ('              3. const,type ');
               writeln ('              4. boolean,string ');
               writeln ('              5. const,string ');
               writeln;
               writeln;
               writeln;
               writeln;
              end;
     k:=1;
     begin
     If s2=s1 then writeln('otvet pravilnii') ;
     If s2=s3 then writeln('otvet pravilnii') ;
     If s2=s4 then writeln('otvet pravilnii') ;
     If s2=s5 then writeln('otvet pravilnii') ;
     If s2=s7 then writeln('otvet pravilnii') ;
     If s2=s8 then writeln('otvet pravilnii') ;
     If s2=s9 then writeln('otvet pravilnii') ;
     end;
     if s2<>s1 then k:=k+1;
     if s2<>s3 then k:=k+1;
     if s2<>s4 then k:=k+1;
     if s2<>s5 then k:=k+1;
     if s2<>s7 then k:=k+1;
     if s2<>s8 then k:=k+1;
     if s2<>s9 then k:=k+1;
     if k=8 then writeln('Otvet nevernii');
            f:=f+1;
            end;
 
           Writeln('vashi popitki zakonchilis');
            readln;
     end.