ОБРАБОТКИ СТРОК

[юра 3]

Иcправьте задачу пожалуйста,очень срочно нужно.

Задан список из 5 четырехбуквенных имен девочек, оканчивающихся на «я». Получить на месте этого списка новый список, состоящий из тех же ласкательных имен. (Например, Таня – Танечка, Аня – Анечка, Лиля – Лилечка).

Program q1;
uses crt;
var i:integer;
s:array [1..5] of string;
a:string;
begin
write ('vvedite imena');
for i:=1 to 5 do
read(s[i]);
write;
for i:=1 to 5 do
begin
delete(s[i],4,(length(s[i])));
insert('ezka',s[i],(length(s[i])+1));
end;
for i:=1 to 5 do
writeln(s[i]);
end.

[Sazary]

Program q1;
uses crt;
var i,np:integer;
s:array [1..5] of string;
a:string;
begin
clrscr;
writeln ('vvedite imena');
for i:=1 to 5 do
readln(s[i]);

writeln;
for i:=1 to 5 do
 begin
 np:=pos('ya',s[i]);
 delete(s[i],np,2);
 insert('echka',s[i],np);
 end;
for i:=1 to 5 do
writeln(s[i]);
readln;
end.

Здесь букву "я" заменяет "ya".
Если замените это на что-нибудь однобуквенное, поменяйте в процедуре delete 2 на 1.
Тестил на
Tanya
Lilya
Zhenya
Anya
Galya