Помогите из С# Перевести код в Delphi.
Вот исходник на С#:
namespace ConsoleApplication5
{
class Program
{
public class Zver
{
public virtual string Name()
{
return " Я ";
}
}
public class fox : Zver
{
public override string Name()
{
return base.Name() + " Лиса";
}
}
public class Mouse : Zver
{
public override string Name()
{
return base.Name() + " Мышка";
}
}
public class Frog : Zver
{
public override string Name()
{
return base.Name() + " Лягушка";
}
}
public class MousN : Zver
{
public override string Name()
{
return base.Name() + " Мышка Нарушка";
}
}
static void Main(string[] args)
{
Random pnd = new Random();
Zver[] p = new Zver[10];
int j;
for (j=0;j<10;j++)
{
int R = pnd.Next(4);
switch(R)
{
case 0: p[j] = new fox();
break;
case 1: p[j] = new Frog();
break;
case 2: p[j] = new Mouse();
break;
case 3: p[j] = new MousN();
break;
}
foreach (Zver zv in p)
{
Console.WriteLine(zv.Name());
Console.ReadKey();
}
}
}
}
}