program renumber;
uses dos,crt;
var anz,i:integer;
    tem1,tem2,us,dt,rr:real;
    tex1,tex2:text;
    name1,name2:string;
begin
clrscr;
writeln('Dieses Programm nummeriert Meáwerte von Dateien im tkm-Format neu.');
write('Quelldatei : ');readln(name1);
write('Zieldatei : ');readln(name2);
writeln('Moment, bitte!');
assign(tex1,name1);
assign(tex2,name2);
reset(tex1);rewrite(tex2);
i:=-1;
repeat
inc(i);
readln(tex1,anz);
readln(tex1,tem1);
readln(tex1,tem2);
readln(tex1,us);
readln(tex1,dt);
readln(tex1,rr);
writeln(tex2,i);
writeln(tex2,tem1);
writeln(tex2,tem2);
writeln(tex2,us);
writeln(tex2,dt);
writeln(tex2,rr);
until eof(tex1);
close(tex1);close(tex2);
writeln;
writeln('Programmende.');
readln;
end.