12,277Выяснить, есть ли в массиве строчки, в которых буковка A размещена

В программке мы поначалу проходим по массиву строк, разглядывая каждую строчку, а затем проходим по каждой строке и отыскиваем в ней сочетание da.
Если строка удовлетворяет условию - заносим ее в переменную words.

var
a: array[1..2,1..2] of string;
word_,part,words:string;

begin
a[1,1]:=mother;
a[1,2]:=coda;
a[2,1]:=father;
a[2,2]:=soda;

for i:integer:= 1 to 2 do
begin
for j:integer:= 1 to 2 do
begin
write(a[i,j]:10);
word_:=a[i,j];
for m:integer:= 1 to length(word_)-1 do
if copy(word_,m,2)=da then
words:=words+a[i,j]+ ;
end;
writeln();
end;
writeln(Слова, в которых буковка а размещена справа от буковкы d: ,words);
end.