Question

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

Answer 1

А первая строка где? 
Пример:
Program primer;
Смотрите у меня открывается, только вот так
Вот видишь и тут открывается