I am sorry, but there were technical problems not so on one task.
How in Pascal to read in a file quantity(amount) of symbols it is more 255?
Thank. - Excuse for bad English..

there is 32bit Free Pascal Compiler.

var s:string;
begin
  read(s);
 // your code
end.

The large thank!
АС!