Pasted

program sizecmpr;
 
{$APPTYPE CONSOLE}
{$WARN UNSAFE_CODE OFF}
 
var
  f1,f2:File;
  fs,fs2:Longword;
 
begin
  assignfile(f1,paramstr(1));
  assignfile(f2,paramstr(2));
  reset(f1,1); reset(f2,1);
  seek(f1,filesize(f1)-4);
  blockread(f1,fs,4);
  fs2:=filesize(f2);
  if fs<>fs2 then
  begin
    write('Wrong size for ',paramstr(2),': expected ',fs,' but got ',fs2);
    seek(f1,filesize(f1)-4); blockwrite(f1,fs2,4);
    writeln('. Fixed');
  end;
  closefile(f1); closefile(f2);
end.