program tmakes3;
uses dos,crt;
var anz,n: integer;
    tem1,tem2,us,dt,rr:real;
    tex1,tex2:text;
    name,namestr:string;
    t1,t2,t,u,r:string;
begin
clrscr;
writeln('Dieses Programm wandelt ein Textfile, das mit Hilfe von tkmgraph3');
writeln('aufgenommen wurde, in ein lesbares Stringfile um (Extension tks).');
writeln('Geben Sie den Namen der zu konvertierenden Datei ein (ohne Extension)!');
readln(name);
namestr:=name + '.tks';
name:=name + '.tkm';
assign(tex1,name);
assign(tex2,namestr);
reset(tex1);rewrite(tex2);
writeln(tex2,'N    ','T1/K     ','T2/K     ','Uth/æV    ','dt/s    ','R/Ohm');
while not eof(tex1) do begin
    readln(tex1,anz);
    readln(tex1,tem1);
    readln(tex1,tem2);
    readln(tex1,us);
    readln(tex1,dt);
    readln(tex1,rr);
    str(tem1:6:3,t1);
    str(tem2:6:3,t2);
    str(dt:6:3,t);
    str(us:8:1,u);
    str(rr:10:3,r);
    writeln(tex2,anz,'  ',t1,'  ',t2,'  ',u,'  ',t,'  ',r);
	end;
    close(tex1);close(tex2);
writeln;
writeln('Fertig!');
writeln('Die neue Datei hat die Extension ".tks". ');
readln;
end.