Сформировать массив В, каждый элемент которого равен первому латинскому символу соответствующей строки матрицы

{Дан массив А из N строк. Сформировать массив В, каждый элемент которого
 равен первому латинскому символу соответствующей строки. }
 
const nmax=20;
      mmax=20;
type mas1=array[1..nmax] of string[mmax]; {данный массив}
     mas2=array[1..nmax] of char; {массив из первых латинских символов}
     
Procedure VvodMas(var a:mas1; n,m:integer);
var i:integer;
Begin
  write('Введите количество строк (не больше 20) > ');
  readln(n);
  write('Введите длину строки (не больше 20) > ');
  readln(m);
  writeln('Введите ',n,'строк по ' ,m,' символов');
  for i:=1 to n do
     readln (a[i]);
end;
 
Procedure Sort(a:mas1; b:mas2; j,n,m:integer);
var i:integer;
Begin
{j - первый латинский символ}
  for i:=1 to n do
  begin
    j:=1;
    while (j<=m) and not(a[j] in ['A'..'Z','a'..'z']) do
       j:=j+1;
    if (j>m)and not(a[j] in ['A'..'Z','a'..'z']) then b[i]:='*'
      else b[i]:=a[i,j];
  end;
end;
 
Procedure Vyvod(b:mas2; n:integer);
var i:integer;
Begin
  for i:=1 to n do
     writeln(b[i]);
end;
 
var a:mas1; n,m:integer;
Begin
  VvodMas(a,n,m);
  Sort(a,b,j,m);
  Vyvod(b,n);
  readln;
 end.

{Дан массив А из N строк. Сформировать массив В, каждый элемент которого
 равен первому латинскому символу соответствующей строки. }
uses crt;
const nmax=20;
      mmax=20;
type mas1=array[1..nmax] of string[mmax]; {данный массив}
     mas2=array[1..nmax] of char; {массив из первых латинских символов}
 
Procedure VvodMas(var a:mas1; var n,m:integer);
var i:integer;
Begin
  write('Введите количество строк (не больше 20) > ');
  readln(n);
  write('Введите длину строки (не больше 20) > ');
  readln(m);
  writeln('Введите ',n,'строк по ' ,m,' символов');
  for i:=1 to n do
     readln (a[i]);
end;
 
Procedure Sort(a:mas1; var b:mas2;n,m:integer);
var i,j:integer;
Begin
{j - первый латинский символ}
  for i:=1 to n do
  begin
    j:=1;
    while (j<=m) and not(a[i][j] in ['A'..'Z','a'..'z']) do
       j:=j+1;
    if (j>m)and not(a[i][m] in ['A'..'Z','a'..'z']) then b[i]:='*'
    else b[i]:=a[i][j];
  end;
end;
 
Procedure Vyvod(b:mas2; n:integer);
var i:integer;
Begin
  for i:=1 to n do
     writeln(b[i]);
end;
 
var a:mas1;
    b:mas2;
   n,m:integer;
Begin
  VvodMas(a,n,m);
  Sort(a,b,n,m);
  Vyvod(b,n);
  readln;
 end.

Procedure Sort(a:mas1; var b:mas2;n,m:integer);