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

uses
  crt;
var
  st: string;
  c: char;
begin
  clrscr;
  write('Stroka 1: ');
  readln(st);
  write('Stroka 2: ');
  readln(c);
  delete(st,pos(c,st),1);
  write('Stroka 3: ',st);
  readkey;
end.

uses crt;
var
str : string;
c : char;
begin
clrscr;
writeln('Enter string');
readln(str);
writeln('Ener char');
readln(c);
while pos(c,str)<>0 do delete(str,pos(c,str),1);
writeln('result : ',str);
readkey;
end.