Получить гистограмму длин строк файла

program fajly;
var f:text;
a:array[1..100] of string;
len:array[1..100] of integer;
max,i,n,m,j:integer;
begin
assign(f,'f.txt'); 
rewrite(f);    readln(n); close(f); reset(f);
   i:=0;
 while not eof(f) do 
    begin
    inc(i);
    readln(f,a[i]);
    end;
    close(f);
  n:=i;
  for I := 1 to n do
  len[i]:=length(a[i]);
      for I := 1 to n do
   begin
      for j := 1 to len[i] do write('#');
      writeln;
   end;
   readln;
end.

program fajly;
 
var
  f: text;
  a: array[1..100] of string;
  len: array[1..100] of integer;
  max, i, n, m, j: integer;
  s: string;
 
begin
  assign(f, 'f.txt'); 
  rewrite(f);
  write('N= ');
  readln(n);
  for i := 1 to n do
  begin
    m := random(n);
    s := '';
    for j := 1 to m do
      s := s + '#';
    writeln(s);  
  end;
  close(f);
  reset(f);
  i := 0;
  while not eof(f) do 
  begin
    inc(i);
    readln(f, a[i]);
  end;
  close(f);
  n := i;
  for I := 1 to n do
    len[i] := length(a[i]);
  for I := 1 to n do
  begin
    for j := 1 to len[i] do write('#');
    writeln;
  end;
  readln;
end.