T.PAS
<![CDATA[
uses dos,crt;
var
F: text;
f1 : text;
s : string[59];
s1 : string[10];
x : integer;
s2 : string;
begin
writeln('file needs to be added!!!');
halt;
assign(f,'crane.txt');reset(f);
assign(f1,'temp');rewrite(f1);
for x := 1 to 45 do readln(f,s,s1);
while not eof(f) do
begin
readln(f,s,s1);
writeln(s1);
s2 := '';
IF s[1] = '-' then writeln(f1,s);
IF s[1] <> '-' then
begin
if s1[1] = '0' then s2 := s2 + 'POS ' else s2 := s2 + ' ';
if s1[2] = '0' then s2 := s2 + '020 ' else s2 := s2 + ' ';
if s1[3] = '0' then s2 := s2 + '727 ' else s2 := s2 + ' ';
if s1[4] = '0' then s2 := s2 + '787 ' else s2 := s2 + ' ';
if s1[5] = '0' then s2 := s2 + '800 ' else s2 := s2 + ' ';
if s1[6] = '0' then s2 := s2 + '880 ' else s2 := s2 + ' ';
if s1[7] = '0' then s2 := s2 + '05k ' else s2 := s2 + ' ';
if s1[8] = '0' then s2 := s2 + '10k ' else s2 := s2 + ' ';
if s1[9] = '0' then s2 := s2 + 'NEG ' else s2 := s2 + ' ';
writeln(f1,s2);
end;
end;
close(f);
close(f1);
end.
]]>