Ошибка нахождения адреса записи и адреса элемента записи

Есть программа, состоящая из записи из трех целых переменных. Нужно ввести с клавиатуры элементы записи и вывести на монитор адрес второго элемента и адрес записи. tp ругается на @s.c в коде ниже. Пишет:

Cannot Read of Write variables of this type

В чем ошибка?

TYPE structure = record
   a : integer;
   b : integer;
   c : integer;
end;

var S : structure;

begin
with S do begin
   writeln;
   write('Введите элемент записи a: ');
   read(a);
   write('Введите элемент записи b: ');
   read(b);
   write('Введите элемент записи c: ');
   read(c);
end;

   writeln;
   write('Запись S состоит из: ');
   writeln; write('a = ', s.a);
   writeln; write('b = ', s.b);
   writeln; write('c = ', s.c);

   writeln; write('Адрес второго элемента записи: ', @s.c);
   writeln; write('Адрес записи: ', @s);

end.