Windows XP / 7 .

program file_int;  
var f : file of integer;  
a, b, k : integer;  
begin  
assign (f, 'integer.dat');  
reset (f);  
k:=0;  
read (f, a);  
while not eof(f) do begin  
read (f, b);  
if b <> a then begin  
a:=b; k:=k+1  
end  
end;  
write (p);  
close (f)  
end.

var
   f1,f2:text;
   s,s1:string;
begin
   readln(s);
   assign(f1,'input.txt');
   assign(f2,'output.txt');
   reset(f1);
   rewrite(f2);
   writeln(f2,s);
   while not EOF(f1) do
   begin
     readln(f1,s1);
     writeln(f2,s1)
   end;
   writeln(f2,s);
   close(f1);
   close(f2)
end.

program prog1;
uses crt;
var
  F: Text;
  namefile: string[50];
  tmp: string[100];
  len: integer;
  countstr, countch: integer;
begin
  clrscr;
  write('Imya faila: ');
  readln(namefile);
  assign(F, namefile);
  reset(F);
  countstr:=0;
  countch:=0;
  while not Eof(F) do
   begin
    readln(F, tmp);
    countstr:=countstr+1;
    countch:=countch+length(tmp);
   end;
  close(F);
  writeln('Kol-vo strok v faile: ', countstr);
  writeln('Kol-vo simvolov: '  , countch);
  readln;
end.