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

program test;
const nmax=10;
type mas1=array[1..nmax] of string;
     mas2=array[1..nmax] of char;
 
procedure InPutMas(n:byte;var a:mas1); 
var j:byte;
begin
    for j:=1 to n do begin
      writeln('Введите строку');
      read(a[j]);
      end;
end;
 
function using(n,j:byte;var k:string;var a:mas1):char;
var i:byte;
    min:integer;
begin
     a[j]:=k;
     min:=ord(k[1]);
      for i:=2 to length(k) do begin
       if ord(k[i])<min then
        min:=ord(k[i]);
     using:=chr(min);
     end;
end;
 
procedure Alg(n,j:byte;var a:mas1;var b:mas2;var k:string);
begin
  for j:=1 to n do
   b[j]:=using(n,j,k,a);
   write(b[j]:5);
end;
var n,j,m:byte;
    a:mas1;
    b:mas2;
    p:char;
    k:string;
begin
writeln('Введите количество строк');
readln(n);
InPutMas(n,a);
for j:=1 to n do begin
using(n,j,k,a);
alg(n,j,a,b,k);
end;
readln();
end.

a[j]:=k

k:=a[j];