Ну у меня чтото такое получается ток не работает(
program lb8;
uses crt;
Var f,t:text;
s:string;
i,j:integer;
st:array[1..10] of string;
Begin
clrscr;
assign(f,'input.txt');
reset(f);
assign(t,'output.txt');
rewrite(t);
while not eof(f) do
Begin
readln(f,s);
if i:=0224 to 0255 then delete;
write(t,s[i]);
writeln(t);
End;
close(f);
close(t);
End.