Текстовый файл. Опции

[someone]

Здравствуйте. У меня тут такая проблема. Как разделить одну строку в текстовом файле на 2, если брать во внимание то,что первая строка должна быть 50 симвлов, а 2 все оставшиеся.

Зарание благодарю.

[Артемий]

var
F: Text;
s,s1,s2: string;
begin
assign(F,'ban.txt');
reset(F);
while not eof(F) do begin
read(F,s);
writeln(s);
s1:=copy(s,1,50);
writeln(s1);
s2:=copy(s,51,length(s));
writeln(s2);
end;
readln

?