нужно найти ошибку

[Стёпыш]

program z;
var a,a1,a2:string;
  b:array[1..10] of string;
  n, i,j,k:integer;
begin
 writeln('Введите предложение');
 readln(a);
 writeln('искомое слово');
 readln(a1);
 writeln('слово замена');
 readln(a2);
  n:=length(a);  k:=0;
  for i:=1 to n do
   if copy(a,i,1)=' ' then j:=j+1
else
 b[j]:=b[j]+copy(a,i,1);
for i:=1 to k do
   if b[i]=a1 then b[i]:=a2;
for i:=1 to k do
writeln(b[i]); readln
end.

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

[eoln]

А не проще удалять и вставлять???

var a,a1,a2:string;
  n:integer;
begin
 writeln('Введите предложение');
 readln(a);
 writeln('искомое слово');
 readln(a1);
 writeln('слово замена');
 readln(a2);

a:=' '+a+' ';
 n := pos(' '+a1+' ', a);//предполагается что пробелы разделяют слова
 while n<>0 do begin
 delete(a, n, length(a1)+2);
 insert(' '+a2+' ', a, n);
 n := pos(' '+a1+' ', a);
 end;
 delete(a,1,1);
 delete(a,length(a),1);
 writeln(a);
 readln
end.

[Стёпыш]

а если мою исправит. то что там именно не правильно сделано?

[ArtInt]

Насчет первого поста, там в коде k=0 (а после не изменяется). Если k-это количество слов, то его надо каждый раз увеличивать. Потому что там цикл для k есть.
Было бы кстати удобнее, если названия переменных имели более осмысленные названия. Например: Предложение - predl; Искомое слово- FindWord и так далее.

[Utkin]

Сообщение от ArtInt

Насчет первого поста, там в коде k=0 (а после не изменяется). Если k-это количество слов, то его надо каждый раз увеличивать. Потому что там цикл для k есть.
Было бы кстати удобнее, если названия переменных имели более осмысленные названия. Например: Предложение - predl; Искомое слово- FindWord и так далее.

Верно, по этой причине два последних цикла никогда не выполняются. И не только осмысленные названия переменных, но и нужны комментарии. Основная ошибка всех начинающих - полное отсутствие комментариев. Когда расписываете свой код, Вы лучше понимаете его работу и половина ошибок не возникает в принципе.

[Стёпыш]

спасибо за совет про коментарии, буду знать.
а вот в моей программе такая проблемма. на примере выглядит так
в предложении: МАМА МЫЛА РАМУ
надо заменить слово МЫЛА на слово КРАСИЛА.
и программа выводила:
МАМА
КРАСИЛА
точно также с новой строки а слово РАМУ не выводила.