Строковый тип данных

[Mihael-Vlz]

Помогите написать программу:

Строковый тип данных. Матрица:
Дан массив из 10-ти строк. Преобразовать каждую строку следующим образом: удалить все буквы 'z'; после каждой буквы 'k' вставить '**'.

Заранее благодарен.

[Sazary]

В чем проблема? Что непонятно?
Предоставьте свои наработки.
Вам помогут delete и insert.
Кстати, при чем тут матрица?

[Mihael-Vlz]

program test;
var s:array [1..20] of string;
    s1: string;
    i,j,n,k: integer;
begin
n:=10;
for i:=1 to n do
begin
write('stroka #',i);
readln(s[i]);
end;
for i:=1 to n do
begin
while pos('z',s[i]) <> 0 do
delete(s[i],pos('z',s[i]),1);
end;
writeln('izmen stroka: ',s[i]);
readln;
end.

Отображает только последнюю обработанную строку. В чём дело то?
А как вывести их все?

[Sazary]

Отображает только последнюю обработанную строку. В чём дело то?

У вас

writeln('izmen stroka: ',s[i]);

вне цикла. Засуньте ее туда.

[Mihael-Vlz]

после каждой буквы 'k' вставить '**'

а как теперь можно это осуществить?

[Sazary]

Вот вам весь цикл:

for i:=1 to n do
 begin
 while pos('z',s[i]) <> 0 do
  delete(s[i],pos('z',s[i]),1);
 k := 1;
 while k<=length(s[i]) do
  begin
  j := pos('k',copy(s[i],k,length(s[i])));
  if j=0 then break;
  insert('**',s[i],k+j);
  k := k+j;
  end;

 writeln('izmen stroka: ',s[i]);
 end;

[Mihael-Vlz]

if j=0 then break;

первый раз встречаюсь с данной коммандой
а для чего она служит?

[Sazary]

первый раз встречаюсь с данной коммандой
а для чего она служит?

Выход из цикла. Вам обязательно нужно знать эту команду.
Также посмотрите команду continue - тоже полезная штука.