Работа с файлами Паскаль

program;
 
const D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
S : String;
i, Pos1, Cnt, Len : Integer;
begin
repeat
Writeln('Input line:');
Readln(S);
 
Len := Length(S);
Cnt := 0;
Pos1 := 0;
for i := 1 to Len do begin
if S[i] in D then
Continue;
if (i = 1) or (S[i - 1] in D) then Pos1 := i;
if (i = Len) or (S[i + 1] in D) then begin
if ( S[Pos1] in ['n', 'N'] ) and ( S[i] in ['c', 'C'] ) then
Cnt := Cnt + 1;
end;
end;
 
Writeln('In the given string found ', Cnt, ' words');
 
Readln(S);
until S <> '';
end.

const D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
S : String;
i, Pos1, Cnt, Len : Integer;
begin
assign(input,'data.txt');
reset(input);
assign(output,'rez.txt');
rewrite(output);
while not eof(input) do begin
Readln(S);
Len := Length(S);
Cnt := 0;
Pos1 := 0;
for i := 1 to Len do begin
if S[i] in D then
Continue;
if (i = 1) or (S[i - 1] in D) then Pos1 := i;
if (i = Len) or (S[i + 1] in D) then begin
if ( S[Pos1] in ['n', 'N'] ) and ( S[i] in ['c', 'C'] ) then
Cnt := Cnt + 1;
end;
end;
 
Writeln('In the given string found ', Cnt, ' words');
end;
close(input);
close(output);
end.

begin
  System.IO.File.WriteAllLines('rez.txt',System.IO.File.ReadAllLines('data.txt',Encoding.GetEncoding(1251)).
  Select(s->format('In the given string found {0} words',
  s.ToWords.Where(t->(uppercase(t[1])='N') and (uppercase(t[length(t)])='C')).Count)),Encoding.GetEncoding(1251));
end.