Помогите исправить ошибку

  • Автор темы advokat92
  • Дата начала
A

advokat92

Гость
#1
Создать файл P, компонентами которого являются элементы массива M. Переписать из файла P в файл G все компоненты в обратном по-рядке. Прочитать файл G.
M=(0,4; 6,1; 2,3; 0,7; 6,2; 3,1; 0,9; 10,1).

Код:
program nomer8;
const m:array[1..8] of real=(0.4, 6.1, 2.3, 0.7, 6.2, 3.1, 0.9, 10.1);
var g,P:file of real;
a:real;
i:byte;
begin
assign(g,'fileP.txt');
rewrite(g);
assign(P,'fileG.txt');
rewrite(P);
writeln('Массив M:');
for i:=1 to 8 do
begin
write(m[i]:5:1);
write(P,m[i]);
end;
close(P);
writeln;
writeln;
reset(P);
while not eof(P) do
begin
read(P,a);
for i:=8 downto 1 do
begin
write(m[i] );
end;
end;
close(g);
close(P);
writeln('Содержание файла G:');
reset(g);
if filesize(g)=0 then write('Файл пустой')
else
while not eof(g) do
begin
read(g,a);
write(a:4:1);
end;
close(g);
end.