Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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