[ALexandr555]

ну readln(f,s);