can somebody help me in my pascal program pls
heres the text:
Program ex;
Uses Wincrt;
Var
M: Array [1..20] Of Real;
G: Array [1..20] Of Char;
n,i: Integer;
R,MT: String;
Begin
Repeat
Write('n=');
Readln(n);
Until n IN [5..20] ;
For i:=1 To 20 Do
Begin
Repeat
Writeln('M[',i,']');
Readln(M);
Until (M>=0) And (M<=20);
Repeat
Write('G[',i,']');
Readln(G);
Until Upcase(G) In ['F','M'];
Begin
If M >= 16 Then MT := 'mention très bien' ;
If M < 16 Then MT := 'mention bien' ;
If M >= 14 Then MT := 'mention Assez Bien';
If M >= 12 Then MT := 'mention Passable' ;
If M >= 10 Then If Upcase(G)='M' Then R := 'Admis' ;
If M >= 10 Then If Upcase(G)='F' Then R := 'Admise' ;
If M <10 Then If Upcase(G)='M' Then R := 'Non Admis' ;
If M <10 Then If Upcase(G)='F' Then R := 'Non Admise' ;
If M>=10 Then Writeln(i,':',R,'avec la',MT);
If M<10 Then Writeln(i,':',R);
End
End.