var a,str2,str3:string;
i,y:integer;
rezult,rezult2: text ;
begin
AssignFile(rezult,'c:\way\rezult.txt');
AssignFile(rezult2,'c:\way\rezult2.txt');
reset(rezult);
rewrite(rezult2);
while not EOF(rezult) do
begin
readln(rezult,str2);
i:=length(str2);
y:=pos('10.01',str2);
delete(str2,y,i);
writeln(rezult2,str2);
end;
close(rezult); close(rezult2);
end..block{
background-color:red;
width:300px;
height:300px;
position:relative;
text-align:center;
position:relative;
}
.innerblock{
text-align:center;
background-color:black;
width:100px;
height:100px;
position:absolute;
top:50%;
left:50%;
transform: translate(-50%, -50%);
}
p{
color:white;
}
.fix{
width:100%;
position:absolute;
top:50%;
left:50%;
transform: translate(-50%, -50%);
}<!doctype html>
<html>
<head>
<meta charset="UTF-8">
<link rel="stylesheet" href="style.css">
</head>
<body>
<div class="block">
<div class="innerblock">
<div class="fix">
<p> some text </p>
</div>
</div>
</div>
</body>
</html>