Решение задачи File 17

import random
import numpy

def GenerateLine(fname):
    N = random.randrange(1,20)
    line = ""
    L = []
    for i in range(N):
        x = str(random.randint(1,3))
        L.append(x)
        line = ", ".join(L)
    try:
        f = open(fname, "w")
        try:
            f.write(line)
        finally:
            f.close()
    except IOError:
        print('Write error: ',fname)
    print(line)

f_source = "file17_source.txt"
GenerateLine(f_source)

try:
    with open(f_source,'r') as f:
        lines = f.readlines()
        lst = []
        lst_result = []
        print(lines)
        for line in reversed(lines):
            for i in line.split(", "):
                lst.append(int(i))
        print(lst)
        k = 1
        ser_num = 1
        i_prev = lst[0]
        for  i in lst[1::]:
            if i == i_prev:
                k += 1
            else:
                lst_result.append(i)
                k = 1
                ser_num += 1
            i_prev = i
        print("Number of series:",ser_num)
        print("Length of series:",lst_result)

except IOError:
    print('Open error: ',f_source)
									

program File17;
var
 S:String;
 F_in,F_out: File of Integer;
 El,i,temp:integer;
begin
  Write('File: ');
  Readln(S);
  Assign(F_in,S);
  Reset(F_in);
  Write('File out: ');
  Readln(S);
  Assign(F_out,S);
  ReWrite(F_out);
  Read(F_in,temp);
  El:=temp;
  i:=1;
  while (not eof(F_in)) do
   begin
    Read(F_in,temp);
    if El=temp then inc(i)
    else
     begin
      i:=1;
      El:=temp;
      Write(F_out,temp);
     end;
   end;
  Close(F_in);
end.