kirill

Program example1;

type
m = array[1..10] of string;

Procedure first(n1:integer; T1:m;var n2:integer; var T2:m);
var
i,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;

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

{Main programm}

var

n2,n1,i:integer;
T1,T2:m;
begin
  writeln('Введите число строк n1');
readln(n1);
writeln('Введите строки');
for i:=1 to n1 do
  readln(T1[i]);
  first(n1,T1,n2,T2);
  second(n2,T2);
end.