В матрице К (5*5), элементами которой являются шестибуквенные слова, найти слово, в котором первый символ - буква А (Паскаль)

[Tolian92]

В квадратной матрице К (5*5), элементами которой являются шестибуквенные слова, найти слово, в котором первый символ - буква А , и заменить на первое слово, в котором не будет ни одной буквы А .

Program prog_1;
uses Crt;
const a_letter=['A','a'];
      number_arr=5;
      sword:array[1..number_arr,1..number_arr] of string [6] =
      (('noword','begin2','array1','const3','divdiv')
      ,('downto','else34','extern','file45','forwar')
      ,('functi','inline','got56o','apple_','notnot')
      ,('overla','packed','proced','progra','record')
      ,('adobe_','absolu','string','then67','while8'));
 Var
  _letter:string[1];
  d_word, i_word, c_word:string[6];
  e_sword:array[1..number_arr,1..number_arr] of string [6];   
  a, i, j, a_subw, _subw: Integer;
Begin
clrscr;
For i:=1 to number_arr do
begin
For j:=1 to number_arr do
begin
e_sword[i,j]:=sword[i,j];
_letter:='';
_letter:=Copy(e_sword[i,j],1,1);
if not (_letter[1] in a_letter) then inc(_subw)
else
if _letter[1] in a_letter then
begin
inc(a_subw);
c_word:='';
c_word:=Copy(e_sword[1,1],1,6);
Delete(e_sword[i,j],1,6);
Insert(c_word,e_sword[i,j],1);
end;
end;
end;
Write('Iznachalnie array:');
Writeln;
For i:=1 to number_arr do
begin
For j:=1 to number_arr do
Write(sword[i,j],' ');
Writeln;
end;
e_sword[i,j]:=sword[i,j];
Writeln;
Writeln('Chislo not zamenenix slov:', _subw);
Writeln('Chislo zamenenix slov:', a_subw);
Writeln;
Writeln('Znachenia array:');
For i:=1 to number_arr do
begin
For j:=1 to number_arr do   
Write(e_sword[i,j],' ');
Writeln; 
end;
readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[whatever]

Да вроде все верно, У меня нормально запустилась. Единственное, к чему можно придраться, может быть нужно заменить на первое слово, в котором не будет ни одной буквы А, идущее после заменяемого слова? Но это так, вопрос постановки задания.

Еще в задании написано "слово", т.е. требуется заменить только одно. Опять же, все зависит от того, как преподователь расценит задание.