program kolvoavto;
uses crt;
type avtomobili=record
marka:string;
familiya:string;
nomer:string;
end;
var
f:file of avtomobili;
avto:avtomobili;
n,i,kvo,i1:integer;
marka1,pos:string;
begin
pos:='poschitano';
clrscr;
writeln('vvedite kolvo mashin');
readln(n);
assign(f,'avto.dat');
rewrite(f);
for i:=1 to n do begin
with avto do begin
writeln('vvedi marku avto# ',i);
readln(marka);
writeln('vvedi familiu vladeltsa# ',i);
readln(familiya);
writeln('vvedi nomer mashiny# ',i);
readln(nomer);
end;
write(f,avto);
end;
close(f);
reset(f);
for i:=1 to n do begin
read(f,avto);
i1:=1;
if avto.marka<>'poschitano' then begin
marka1:=avto.marka;
inc(kvo);
avto.marka:='poschitano';
repeat
read(f,avto);
if avto.marka=marka1 then begin
inc(kvo);
avto.marka:='poschitano';
writeln(avto.marka);
end;
until(eof(f));
writeln(marka1);
writeln(kvo);
end
else
begin
inc(i1);
seek(f,i1);
end;
end;
readln;
end.
Помогите! Диск рид эррор выдает.
Кто-нибудь! завтра с утра сдавать программу!