составить программу которая удаляет из строки заданный символ (,) и вставляет в строку другой заданный символ (.)

а не наоборот разве if n[i] = ',' then n[i] := '.' ?

Точно! Наоборот

var i: Integer; n: String;Beginreadln(n);for i := 1 to length(n) do  if n[i] = ',' then n[i] := '.';writeln(n);End.