1:
2:

var   Lager1: file of String[100];
      g:string[100];					

1:
2:
3:
4:
5:

for i:=0 to j do
  begin
    read(lager1,g);
    memo1.lines.add(IntToStr(i+1) + ': ' + g );
  end;					

1:

[Error] Unit1.pas(100): Incompatible types					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type
  TLagerString = String[100];
{..}
var
  Lager1: file of TLagerString;
  g: TLagerString;
begin
  {..}
  for i := 0 to j do begin
    Read(Lager1, g);
    Memo1.Lines.Append(IntToStr(i+1) + ': ' + g);
  end;
end;