Написать программу, заменяющая символ на определенной позиции строки на заменяемый — Pascal(Паскаль)

 Program pr5;
uses crt;
var a:string;
    c:char;
    i,k:byte;
begin
clrscr;
write('введите текст: ');
readln(a);
repeat
write('номер заменяемого символa: ');
readln(k);
if k>length(a) then write('В строке нет ',k,' символов');
until k in [1..length(a)];
write('заменяющий символ: ');
readln(a2);
a[k]=c;
write(a);
readln
end.