проверить правильность расстановки операторов begin и end

[Тёмка]

Люди помогите пожайлуста проблема с дописанием программы....вообщем задние звучит так
"Дан файл на Языке паскаль.проверить правильность расстановки операторов begin и end"Если есть лишние вывести в какой строке...помогите пожайлуста буду очень признателен.

program fignya;
uses crt;
var
way,n,way2:string;
f,f2:text;
beg,en:integer;
begin
clrscr;
writeln('input way to file : ',way);
readln(way);
assign(f,way);
reset(f);
while not EOF(f) do
      begin
      writeln(f,n);
      if n='begin' then beg:=beg+1;
      if n='end;' then en:=en+1;
      if n='end.' then en:=en+1;
      end;
      close(f);
           readln;

      if beg=en then writeln('program is write') else writeln('program is wrong');

end.

ну хотя бы в коде ошибку укажите а то не работает и ругаеться чего то помогите пожайлуста.....

[madmot]

Ну вопервых :

writeln(f,n)

запись в файл, а readln(f,n) чтение из файла.
далее, ты читаешь/пишешь всего один символ, и сразу начинаешь его сравнивать, что изначально неправельно.

Примерный алгоритм: считывать файл по строкам и уже в строке искать требуемые слова

var n:string;
while not Eof(f) do
begin
  readln(f,n);
  if seekeoln then {если достигнут конец строки}
  begin
    {а здесь в цикле от 1 до length(n) просматриваешь строку на предмет нужных слов}
    {используй while pos('begin',n)<>0 - ищет вхождение подстроки в строку}
  end;
end;