Witam.
Mam za zadanie zapisać kilka losowych liczb typu real do zdefiniowanego pliku binarnego, a następnie zamienić miejscami pierwszą i ostatnią.
Plik wypełniam procedurą:
procedure wypelnij(var x:plik);
var
i:byte;
z:real;
begin
rewrite(x);
for i:=0 to 5 do
begin
z:=random(200);
write(x,z);
end;
close(x);
end;
Następnie za pomocą funkcji seek próbuję zamienić miejscami owe liczby:
procedure zamien(var x:plik);
var
temp,c:real;
begin
rewrite(x);
read(x,temp);
c:=temp;
seek(x,4);
read(x,temp);
write(x,c);
seek(x,0);
write(x,temp);
close(x);
end;
Kompilator wywala mi runtime error 100. Co robię źle?