Что я неправильно написал?
var a,b,c,d:real;

begin

writeln(' введи число a');

readln(a);

writeln('введи число b');

readln(b);

writeln('введи число c');

readln(c);

d:=a;

a:=c;

writeln(a);

c:=b;

writeln(c);

b:=d;

writeln(b);

end.