даны два трехзначных числа. поменять вторые цифры этих чисел(pascal)

var
a,b,c: string;

begin
randomize;
writeln('Введите два трёхзначных числа:');
readln(a);
readln(b);
c:=a;
a[2]:=b[2];
b[2]:=c[2];
writeln('Ответ: ',a,' ',b);  
end.