Типизированные файлы Delfi
Почему подчеркивает read(g,x);
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
uCRT;
type
bag=record
surname: string[25]; {фамилия}
ves : real; {вес}
kolvo : integer; {количество}
end;
var
g: file of bag; {объявление типизированной файловой переменной }
x:string[255];
a: array of bag;
i,n:Integer;
begin
Write('Пассажиров: ');
ReadLn(n);
SetLength(a, n); {выделение памяти}
for i := 0 to Length(a) - 1 do
begin
WriteLn('Багаж № ', i + 1);
with a[i] do
begin
Write('Фамилия: ');
ReadLn(surname);
Write('Вес: ');
ReadLn(ves);
Write('Количество: ');
ReadLn(kolvo);
end;
end;
WriteLn;
AssignFile(g,'C:\Users\Владислав\Desktop\lab8\er.txt');
Rewrite(g);
for i:=1 to n do write(g,a[i]); {после цикла находимся в конце файла}
begin
CloseFile(g);
Reset(g);
read(g,x);
Writeln('Запись',x) ;
end;
Readln;
Finalize(a); {очистка памяти динамического массива}
end.