PascalABCNET ругается на строку 20 в программе:
program Test1;
uses Crt;
var
file_1: string;
c: integer;
b: string;
a: integer;
begin
ClrScr;
gotoxy (1,1);
textbackground (green);
TextColor (15);
writeln ('green');
readln (a);
writeln ('Ведено:',a);
readln (b);
writeln ('Ведено:',b);
readln (c);
if c = 1 then
Assign (file_1, 'C:\Документы\Николай 2\Програмирование\text\test1.txt'); {Строка 20}
Reset (file_1);
readln (file_1,b);
Close (file_1);
rewrite (t);
Close (file_1);
end.
Пишет: (на скриншоте)
