Дан файл, содержащий текст программы на Pascal’e. Составить программу,определяющую, совпадает ли количество служебных слов BEGIN и END — Pascal (Паскаль)

{Дан файл, содержащий текст программы на Pascal'e.
 Составить программу, определяющую, совпадает ли количество
 служебных слов BEGIN и END.}

Program Fily2;
 Var F : Text;
     B, E, I : Integer;
     Stroka : String;
     Name : String;
Begin
  Write('Введите имя файла: ');
  ReadLn(Name);
  Assign(F, Name);
  ReSet(F);
  B := 0;
  E := 0;
  While Not Eof(F) Do
   Begin
     ReadLn(F, Stroka);
     For I := 1 To Length(Stroka) Do
      If Ord(Stroka[I]) In [65..90]
      Then Stroka[I] := Chr(Ord(Stroka[I]) + 32);
     WriteLn(Stroka);
     For I := 1 To Length(Stroka) - 2 Do
       Begin
         If Copy(Stroka, I, 3) = 'end' Then E := E + 1;
         If I <= Length(Stroka) - 4
         Then
             If Copy(Stroka, I, 5) = 'begin' Then B := B + 1;
       End
   End;
   Close(F);
   WriteLn(B = E)
End.