12,277Выяснить, есть ли в массиве строки, в которых буква A расположена справа от буквы d (известно, что буква d в каждой

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

var a: array[1..2,1..2] of string; word_,part,words:string; begina[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.