помогите, пожалуйста, разобраться. record.

[katmal]

нужно протестировать совпадение реквезита"всего продано" и общей суммы реквезита "в том числе". Если встречаются запси, в которых указаные величины не совпадают, то они переносятся во вновь создаваемый файл с внешним именем "met_err"


program metall;
type
tip1=record
data:string[6];
kod:string[6];
vs,ch,pr,vt,s:real;
end;
var
f:file of tip1;
d:tip1;
name:string;
i,max_d:integer;
procedure sozd;
begin
write('ввидите кол-во записей');
readln(max_d);
writeln;
writeln('заполнение данных в файл*');
writeln;
{$i-}
assign(f,'metall');
reset(f);
seek(f,filesize(f));
{$i+}
if ioresult<>0 then
rewrite (f);
for i:=1 to max_d do
begin
writeln('-------------',i,'------------------');
write('введите дату');
readln(d.data);
write('введите код покупателя');
readln(d.kod);
write('введите сколько всего продано');
readln(d.vs);
write('введите сколько продано чугуна*');
readln(d.ch);
write('введите прокат');
readln(d.pr);
write('в том числе других металлов');
readln(d.vt);
write(f,d);
end;
close(f);
writeln;
writeln('данные сохранены в файл');
readln;
end;

[Викдон]

как я понял если хотя бы один реквизит в записи не совпадант с ключевым, то эта запись записывается в новый файл
вот держи:

program metall;
type
  tip1=record
   data:string[6];
   kod:string[6];
   vs,ch,pr,vt,s:real;
  end;

var f:file of tip1;
    d:tip1;
    name:string;
    i,max_d,k:integer;
    f2:file of tip1;



procedure Sort;
var VseP,Vt:real;
begin
 assign(f,'metall');
 assign(f2,'met_err');
  rewrite(f2);
   write('Введите реквизит -"всего продано": ');
   readln(vseP);
   write('Введите реквизит - "в том числе": ');
   readln(Vt);
     {$I-}
     reset(f);
        if IoResult<>0 then
          begin
           write('Файл не найден!');
           readln;
           exit;
          end;
     {$I+}
       for i:=1 to Filesize(f) do
        begin
         read(f,d);
          if (d.vs<>Vsep)  or (d.vt<>Vt) then
            write(f2,d);
        end;
  close(f);
  close(f2)


end;



procedure sozd;
begin
   assign(f,'metall');
   assign(f2,'met_err');
write('Введите колличество записей');
readln(max_d);
writeln;
writeln('Заполнение данных в файл*');
writeln;
{$i-}
reset(f);
seek(f,filesize(f));
{$i+}
if ioresult<>0 then
rewrite (f);
  for i:=1 to max_d do
    begin
     writeln('-------------',i,'------------------');
     write('Введите дату: ');
     readln(d.data);
     write('Введите код покупателя: ');
     readln(d.kod);
     write('Введите сколько всего продано: ');
     readln(d.vs);
     write('Введите сколько продано чугуна');
     readln(d.ch);
     write('Введите прокат: ');
     readln(d.pr);
     write('в том числе других металлов');
     readln(d.vt);
     write(f,d);
   end;

close(f);
writeln;
writeln('данные сохранены в файл');
readln;
end;


begin
while true do
 begin
   writeln('Выберите действие: ');
   writeln('1-Создать запись');
   writeln('2-Протестировать');
   writeln('3-Выход');
   readln(k);
    case k of
      1:sozd;
      2:sort;
      3:exit;
    end;
 end;

end.