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;
Смотрите у меня открывается, только вот так
Вот видишь и тут открывается

Answer 2

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

Answer 3

Выше

Answer 4

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

Answer 5

:)

Answer 6

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