PASCAL Text failu apstrāde! Pos izmantošana?

Labdien, lūdzu, vai varat man izpalīdzēt:
Mans uzdevums ir apstrādāt tekstu tā, lai, ja ievades failā rindas sākas ar begin vai BEGIN, pirms dotiem vārdiem izvades failā izvada 2 tukšas rinda. Taču, kā lai uzraksta programmā, lai pirms begin izvada divas tukšas rindas, ja rindā vēl ir vardi. Dzirdēts, ka jāizmanto POS, taču man ar to nekas nesanāk vai es nepareizi to pielietoju :(  ( jo ja man teksta failā ir rindinja "BEGIN aaaaaa"
viņš pirms šī begin neliek divas tukšas rindiņas!!!

program Lab1;
 var
F1,        {Ievada datu fails}
F2   :TEXT;      {rezultatu fails}

F1X, F2X : string;
f2Name: string;
Const
f1Name='Lab1Inp.txt';
label TESTING, ENDING;

begin
 Assign(F1, F1Name );  { Datu ievada fails }
 Reset(F1);
 writeln(' ievadi rezultata faila vaardu');
 readln(F2Name);
 assign(F2, F2name);   { Rezultatu fails }
 rewrite(F2);

TESTING:

 While (not EOF (F1)) do
 begin
 Read(F1,F1X);
 IF (F1X='begin') or (F1X='BEGIN') then
 begin
  write(#13#10);
  writeln(f2,#13#10);
  writeln(f2,f1x);
 end
else
 begin
  Write(f1x);
  Writeln(f2, f1x);
 End;
 end;
 ENDING: close(F1); close(F2);
 end.