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

Тогда вот, все по букве задания

var
  s : string;
  t : char;
  i : integer;
begin
  readln (s);
  read (t);
  i := 1;
  while (i <= length (s)) do
  begin
    if s[i] = t then delete (s, i, 1)
    else i := i + 1;
  end;
  writeln (s);
end.