procedure vibor;
begin
writeln('введите цех');readln(x);
reset(f);read(f,zap);
while not eof(f) do
if x=zap.c then begin
gotoXY(5,whereY);write(zap.c);
gotoXY(14,whereY);write(zap.u);
gotoXY(25,whereY);write(zap.b);
gotoXY(36,whereY);write(zap.w);
gotoXY(52,whereY);writeln(zap.plan);close(f);
end;
end;
procedure vibor;
begin
writeln('введите цех');readln(x);
reset(f);read(f,zap);
while not eof(f) do
//может, стоит считывать запись из файла внутри цикла?
if x=zap.c then begin
gotoXY(5,whereY);write(zap.c);
gotoXY(14,whereY);write(zap.u);
gotoXY(25,whereY);write(zap.b);
gotoXY(36,whereY);write(zap.w);
gotoXY(52,whereY);writeln(zap.plan);
close(f); //а вот закрывать файл - уже после выхода из цикла
end;
end;