решить задачи по паскалю.

[Alexander7777]

Помогите решить данные задачи:
1.Напишите программу, удаляющую из слова i-ю букву.
2.Напишите программу, удаляющую из слова X все буквы, которые встречаются в слове Z.
3.Напишите программу, которая в заданном тексте меняет слово "Пётр" на слово "Иван".
4.Напишите программу, которая удаляет из введённой строки любой требуемый введённый с клавиатуры символ. Процесс удаления выведите в отдельную процедуру.

[isqoff]

1)

uses Crt;
var
   s:string;
   i,j:integer;
BEGIN
    write('введите слово :');
    readln(s);
    write('введите номер буквы:');
    readln(j);
    i:= length(s);

    if i >= j
        then begin
                  Delete(s,j,1);
                  writeln('полученное слово  :',s);
             end
        else writeln('в слове  :" ',s,' " только  :',i,' букв');

END.

[isqoff]

4)

uses Crt;
var
   s:string;
   i:integer;
   ch:char;
   
procedure Del;
begin
   if  pos(ch,s)<>0
        then begin
                  i:= 1;
                  repeat
                        Delete(s,pos(ch,s),1);
                        inc(i);
                  until pos(ch,s)= 0;
                  writeln('Полученное слово  : ',s);
             end
        else writeln('В слове :" ',s,' " такой буквы :" ',ch,' " нет!!!');
end;
   
BEGIN
    write('Введите слово :');
    readln(s);
    write('Введите букву для удаления :');
    readln(ch);
    
    Del;
    
END.

[Aranea tela telam]

2

uses crt;
var x,z:string;
i:integer;
begin
 clrscr;
 write('Z -> ');
 readln(z);
 write('X -> ');
 readln(x);
 for i:=1 to length(z) do while pos(z[i],x)>0 do delete(x,pos(z[i],x),1);
 writeln(x);
 readln;
end.

[Aranea tela telam]

3
код:

Program pr15;
var
a,b,c:string;
i,i1:integer;
begin
// Ввод текста
Readln(a);
//что заменить
Readln(b);
//на что заменить
Readln(c);
i1:=Length(a)-Length(c);
for i:=1 to i1 do
if copy(a,i,Length(b))=b then
begin
delete(a,i,Length(b));
Insert(c,a,i);
 end;
Writeln(a);
end.