Nepieciešama palīdzība Pascal vidē

Tātad man ir jāizveido programma, kura izmanto teksta failu un to apstrādā, rezultātu izvadot citā teksta failā. Un ja ievades failā kāda rinda sākās ar vārdiem "begin" vai "BEGIN" tad pirms dotās rindas izvades failā izvadīt divas tukšas rindas. Un šeit sākas problēmas jo nezinu, jeb precīzāk nevaru iedomāties kāda komanda var izvadīt šīs divas tukšās rindas, varbūt kāds no jums zinās

Kods (cik nu tālu esmu ticis) :

uses CRT;

var

InpFile, {Ievada datu fails}

OutFile :TEXT; {rezultatu fails}

InputString, OutputString : string;

OutfileName: string;

i: integer;

CONST

InpFileName='Lab1Inp.txt';

label TESTING, ENDING;

begin

Assign(InpFile, InpFileName ); { Datu ievada fails }

Reset(InpFile);

writeln(' ievadi rezultata faila nosaukumu');

readln(OutFileName);

assign(OutFile, OutFilename + '.txt'); { Rezultatu fails }

rewrite(OutFile);

TESTING: CLRSCR;

while (not EOF (InpFile)) do

begin

Komentāri:

#1 Lielkuilis @ 2015.02.23 21:08

writeln, vecīt, un vēl viens writeln.
Protams, var arī sarežģītāk, ja pasniedzējs writeln aizliedzis.
http://www.freepascal.org/docs-html/rtl/system/chr.html