[CrazyMan86]

У меня вот такой код

Код:

type
    TPlan = record
      PlanName : string[50];
      PlanID : integer;
      check : boolean;
  end;
var PList, PList1 : array [0..100] of TPlan;
    f: file of Tplan;
.............

Assignfile(f, 'spisok.sld');
if not fileexists('spisok.sld') then rewrite(f)
          else
          begin
          reset(f);
          j:=0;
          while not eof(f) do
                begin
                readln(f, Plist[j]);
                j:=j+1;
                end;
          for i:=0 to j-1 do
              if Plist[i].check=true then
                 begin
                 found:=false;
                 g:=0;
                 while (found = false) and (g<=k) do
                       begin
                       if PList1[i].PlanID=PList[g].PlanID then
                          begin
                          found:=true;
                          Plist1[i].check:=true;
                          end;
                       end;
                 end;
          end;

в строке где производится чтение из файла выдает ошибку несовместимости типов.
МОжет кто знает почему???