Перевод кода C# в Pascal

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
 
namespace Laba10
{
    abstract class Number
    {
        public int i;
        public double r;
        public bool type;
 
        public abstract Number Sum(Number a);
        public abstract Number Sub(Number a);
        public abstract Number Mult(Number a);
        public abstract Number Div(Number a);
 
    }
 
    class Integer : Number
    {
        public Integer()
        {
            this.i = 0;
            type = true;
        }
 
        public Integer(int i)
        {
            this.i = i;
            type = true;
        }
 
        public override Number Sum(Number a)
        {
            Number t = new Integer(a.i + i);
            return t;
        }
 
        public override Number Sub(Number a)
        {
            Number t = new Integer(i - a.i);
            return t;
        }
        public override Number Mult(Number a)
        {
            Number t = new Integer(a.i * i);
            return t;
        }
        public override Number Div(Number a)
        {
            Number t = new Integer((int) (i / a.i));
            return t;
        }
        public override string ToString()
        {
            return i + " тип Integer";
        }
    }
 
    class Real : Number
    {
        public Real()
        {
            this.r = 0.0;
            type = false;
        }
 
        public Real(double r)
        {
            this.r = r;
            type = false;
        }
 
        public override Number Sum(Number a)
        {
            Number t = new Real(a.r + r);
            return t;
        }
 
        public override Number Sub(Number a)
        {
            Number t = new Real(r - a.r);
            return t;
        }
        public override Number Mult(Number a)
        {
            Number t = new Real(a.r * r);
            return t;
        }
        public override Number Div(Number a)
        {
            Number t = new Real(r / a.r);
            return t;
        }
        public override string ToString()
        {
            return r + " тип Real";
        }
    }
 
    class Series 
    {
        Number[] s;
        public int Length { get; private set; }
 
        public Series(int size)
        {
            s = new Number[size];
            Length = size;
        }
        public Number this[int index]
        {
            get
            {
                return s[index];
            }
            set
            {
                s[index] = value;
            }
        }
        
        public void SortUp()
        {
            Number t;
            for (int count = 0; count < Length; count++)
                for (int k = count; k < Length; k++)
                {
                    bool f = false;
                    if (s[count].type == s[k].type & s[count].type)
                        if (s[count].i > s[k].i) { f = true; }
                    if (s[count].type == s[k].type & !(s[count].type))
                        if (s[count].r > s[k].r) { f = true; }
                    if (s[count].type != s[k].type & s[count].type)
                        if (s[count].i > s[k].r) { f = true; }
                    if (s[count].type != s[k].type & !(s[count].type))
                        if (s[count].r > s[k].i) { f = true; }
                    if (f)
                    {
                        t = s[count];
                        s[count] = s[k];
                        s[k] = t;
                    }
 
                }
        }
 
        public void SortDown()
        {
            Number t;
            for (int count = 0; count < Length; count++)
                for (int k = count; k < Length; k++)
                {
                    bool f = false;
                    if (s[count].type == s[k].type & s[count].type)
                        if (s[count].i < s[k].i) { f = true; }
                    if (s[count].type == s[k].type & !(s[count].type))
                        if (s[count].r < s[k].r) { f = true; }
                    if (s[count].type != s[k].type & s[count].type)
                        if (s[count].i < s[k].r) { f = true; }
                    if (s[count].type != s[k].type & !(s[count].type))
                        if (s[count].r < s[k].i) { f = true; }
                    if (f)
                    {
                        t = s[count];
                        s[count] = s[k];
                        s[k] = t;
                    }
 
                }
        }
 
    }
}