Ярослав
Чтение файлов в делфи
Столкнулся с проблемкой что не могу прочитать файлы 1, 2 (пробовал reset(f) но на экране пусто) допишите пожалуйста в код
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
ucrt;
var
y, f:text;
begin
assign(y,'C:\Users\Владислав\Desktop\lab 7\2.txt');
assign(f,'C:\Users\Владислав\Desktop\lab 7\1.txt');
rewrite(f);{открыть файл для записи}
write(f, '-4','-3','-2','-1','0','1','2','3','4');
CloseFile(f);
rewrite(y);
write(y, 'f','2','я','1','а','г','й','з','4');
CloseFile(y);
end.
я тут файлы создал теперь нужно их прочитать