Процедура просмотра тип. файла (в чем ошибка?)

procedure prosmotr(var f:s);
var a,k:0..5;
    b:TZ;
    c,d,i:integer;
begin
     writeln('Полный просмотр(1)');
     writeln('Просмотр по выбору(2)');
     writeln('Выход(0)');
     readln(a);
     case a of
     1:begin
            reset(f);
            writeln('               Электростанции                         ');
            writeln('|   Регион  | Тип |    Название    |Мощность|');
            while not eof(f) do
                  begin
                       read(f,b);
                       write(b.reg);
                       write(b.tip);
                       write(b.nazv);
                       write(b.mosch);
                       writeln;
                       writeln('--------------------------------------------');
                  end;
            close(f);
            exit;
            
     end;
     2:begin
            reset(f);
            write('Просмотреть запись с  ');
            readln(c);
            write('по ');
            readln(d);
            if (filesize(f)<c)or(c<0) or (filesize(f)<d)or(d<0) then
               begin
                    writeln('Такой записи нет');
                    close(f);
                    exit;
               end;
            seek(f,c);
            writeln('               Электростанции                         ');
            writeln('|   Регион  | Тип |    Название    |Мощность|');
            for i:=c to d do
                begin
                     seek(f,i);
                     read(f,b);
                     write(b.reg,' ');
                     write(b.tip,' ');
                     write(b.nazv,' ');
                     write(b.mosch,' ');
                end;
            close(f);
 
     end;
     0:exit;
end;
end;