Uses crt; var f: text; g: string; c: char; begin write('введите имя файла'); read(g); assign(f,g); rewrite(f); writeln('введите текст, который нужно записать'); writeln('по окончанию нажмите "esc"'); repeat write(f,c); write(c); if c='13' then writeln; until c='27'; close(f); end. где здесь ошибка? он мне пишет что не закрыта 1 это abc pascal