program Project1;

uses
  SysUtils;
Var
  arr: array of array of String;
  sup: array of Integer;
  i,z,a,b,rr,m,k: Integer;
  function SupArray() : Boolean;
  begin
     SetLength(sup, b);
     for i:= 1 to b do
     begin
       m:= 0;
       for z:= 1 to a do
       begin
         if (not(k.TryParse(arr[i][z], k))) then
         begin
           Inc(m);
         end;
         sup[i]:= m;
       end;
     end;
     Result:= true;
  end;
begin
      Randomize;
   Writeln('Введите размер матрицы Х на Y');
      Readln(a,b);
      SetLength(arr, a);
      for i:= 1 to a do begin SetLength(arr[i], b); end;
      for i:= 1 to a do
      begin
       for z:= 1 to b do
       begin
         rr:= Random(3);
         if (rr = 1) then arr[i][z]:= IntToStr(Random(100)) else arr[i][z]:= ''+chr(Random(ord('Z')-ord('A')+1)+ord('A'));
         Writeln('Элемент [',i,'][',z,'] = ', arr[i][z]);
       end;
      end;
      if (SupArray) then begin
        for i:= 1 to a do begin Writeln('Элемент [',i,'] = ', sup[i]); end;
      end;
      Readln;
end.