Сортировка простым обменом и прямым включением

uses crt;
procedure obmen(t,n:integer;Var a:array[1..100,1..100]of string);
var i,j:integer;x:string;
begin
 for i:=2 to n do
  for j:=n downto i do
   if length(a[t,j-1])>length(a[t,j])then
   begin
    x:=a[t,j-1];
    a[t,j-1]:=a[t,j];
    a[t,j]:=x;
   end;
end;
procedure vcluch(t,n:integer;Var a:array[1..100,1..100]of string);
var i,j,l:integer;x:string;
begin
for i := 2 to n do
    begin
      x:= a[t,i];
      j:= i-1;
      while (j>0) and (length(x)<length(a[t,j])) do
        begin
          a[t,j+1]:= a[t,j];
          j:= j-1;
        end;
      a[t,j+1]:= x;
    end;
end;
var a:array[1..100,1..100]of string;
f,g:text;sort,i,j,m,n,k,l,t:byte;e,ch:string;
begin
assign(f,'vvod.txt');
reset(f);
while not eof(f) do
 begin
 readln(f,e);
 e:=trim(e);
 e:=e+' ';
 k:=length(e);
 inc(l);
 for i:=1 to k do
  if not(e[i]=' ')then
   begin
   ch:=ch+e[i];
   end else
   begin
   inc(j);
   a[l,j]:=ch;
   ch:='';
   end;
 end;
close(f);
m:=l;n:=j;
write('Введите сортировку 1 простым обменом 2 простыми включениями = ');
readln(sort);
if sort=1 then
 begin
 for t:=1 to m do
 obmen(t,n,a);
 end else
 begin
 for t:=1 to m do
 vcluch(t,n,a);
 end;
assign(g,'vivod.txt');
rewrite(g);
for i:=1 to m do
begin
 for j:=1 to n do
  write(g,a[i,j],' ');
 writeln(g);
end;
close(g);
end.