Составьте программу, которая позволяет удалить символы 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.