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

а где эти фотки?

Выше

все все нашла)))

:)

А может и чего-то не хватает, каких-нибудь команд, прости просто мы до этого не дошли еще. Мы вот только 2 урока прошли по Crt

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