Даны два трехзначных числа. поменять вторые цифры этих чисел(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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.