strings

Program example1;

Procedure first(n1:integer; var T1:array[1..10] of string);
var
i,n2,j,j1:integer;
T2 :array[1..10] of string;
begin

n2:=0; {число подстрок}
for i:=1 to n1 do
 begin
  j:=1; {номер символа}
  j1:=1; {начало подстроки}
  while j<=length(T1[i]) do
    if (T1[i][j] >='[') and (T1[i][j]<=']' ) then
     begin
      if j<>1 then
        begin
        n2:=n2+1;
        T2[n2]:=copy(T1[i],j1,j-j1);
        end;
while (j<=length(T1[i]))and (T1[i][j] >='[')and (T1[i][j]<=']' ) do
       j:=j+1;
       j1:=j;
      end
    else
      j:=j+1;
  if j<>j1 then
    begin
    n2:=n2+1;
    T2[n2]:=copy(T1[i],j1,j-j1);
    end;
 end;
if n2=0 then
  writeln('Нет подстрок')
else
  begin
    writeln('Подстроки');
    for i:=1 to n2 do writeln(T2[i]);
  end;
end;

Function second(n2:integer; var T2:array[1..10] of string): string;
var
i,min:integer;
hg:string;
begin
 for i:=1 to n2 do
  begin
  if length(T2[i])<min then
    begin
         min:=length(T2[i]);
         hg:=T2[i];
    end;
  end;
  writeln('the shortest line',hg);
end;

{Main programm}
var
n2,n1,i:integer;
T1,T2:array[1..10] of string;
begin
  writeln('Введите число строк n1');
readln(n1);
writeln('Введите строки');
for i:=1 to n1 do
  readln(T1[i]);
  first(n1,T1);
  second(n2,T2);
end.