program tkmpaste;
uses dos,crt;
var name1,name2:string;
    tex1,tex2:text;
    anz,a,b,i:integer;
    tem1,tem2,us,dt,rr:real;
begin
clrscr;
writeln('Dieses Programm kopiert eine Datei 2 an  das Ende einer Datei 1. Beide');
writeln('Dateien m�ssen im Format "tkm" vorliegen. Zwischen beide Dateien werden');
writeln('Werte aufgef�llt, so daá die neue Datei 1 f�r die Widerstandsauswertung');
writeln('kompatibel ist.');
write('Geben Sie den Namen der Datei 1 ein (mit Extension): ');readln(name1);
write('Geben Sie den Namen der Datei 2 ein (mit Extension): ');readln(name2);
writeln('Moment bitte !');
assign(tex1,name1);assign(tex2,name2);
reset(tex1);
while (not eof(tex1)) do begin
  readln(tex1,anz);
  readln(tex1,tem1);
  readln(tex1,tem2);
  readln(tex1,us);
  readln(tex1,dt);
  readln(tex1,rr);end;
close(tex1);
a:=trunc(anz/10);b:=anz-10*a;
append(tex1);
if b<9 then begin
for i:=1 to (9-b) do begin
  writeln(tex1,anz);
  writeln(tex1,tem1);
  writeln(tex1,tem2);
  writeln(tex1,0);
  writeln(tex1,dt);
  writeln(tex1,rr);end;
end;
reset(tex2);
while (not eof(tex2)) do begin
  readln(tex2,anz);
  readln(tex2,tem1);
  readln(tex2,tem2);
  readln(tex2,us);
  readln(tex2,dt);
  readln(tex2,rr);
  writeln(tex1,anz);
  writeln(tex1,tem1);
  writeln(tex1,tem2);
  writeln(tex1,us);
  writeln(tex1,dt);
  writeln(tex1,rr);
  end;
close(tex1);close(tex2);
writeln('Programmende.');
readln;
end.