перевести

[Betman]

нужно с этого
using System;
using System.Collections.Generic;
using System.Text;

namespace ConsoleApplication1
{

//Заданные поля записи, определить их типы данных,
//написать программу для ввода произвольного количества записей через массив,
//инициализировать как типизированные константу.
//Вывести записи согласно указанному критерию на экран в формате, удобном для просмотра.
//Судно: длина, ширина, осадка, количество пассажиров.
//Критерий: отношение ширина / осадка> = 2,5.

class Program
{public class ship
{
public int dl;
public int sh;
public int os;
public int kp;
}
static void Main()
{
ship[] ships = new ship[3];
for (int i = 0; i < 3; i++)
{
string s;
ships[i] = new ship();
Console.WriteLine("Введите длину {0} корабля", i + 1);
s = Console.ReadLine();
ships[i].dl = int.Parse(s);

Console.WriteLine("Введите ширину {0} корабля", i + 1);
s = Console.ReadLine();
ships[i].sh = int.Parse(s);

Console.WriteLine("Введите осадку {0} корабля", i + 1);
s = Console.ReadLine();
ships[i].os = int.Parse(s);

Console.WriteLine("Введите количество пассажиров {0} корабля", i + 1);
s = Console.ReadLine();
ships[i].kp = int.Parse(s);
}
for (int i = 0; i < 3; i++)
{
Console.WriteLine("---------------------");
Console.WriteLine("корабль #{0}", i + 1);
Console.WriteLine("длина-{0}", ships[i].dl);
Console.WriteLine("ширина-{0}", ships[i].sh);
Console.WriteLine("осадка-{0}", ships[i].os);
Console.WriteLine("количество пассажиров-{0}", ships[i].kp);
}
for (int i = 0; i < 3; i++)
{
if (ships[i].sh / ships[i].os >= 2.5)
{

Console.WriteLine("-----отбор по критерию----");
Console.WriteLine("корабль #{0}", i + 1);
Console.WriteLine("длина-{0}", ships[i].dl);
Console.WriteLine("ширина-{0}", ships[i].sh);
Console.WriteLine("осадка-{0}", ships[i].os);
Console.WriteLine("количество пассажиров-{0}", ships[i].kp);
}
}
Console.ReadLine();
}
}
}
сделать на делфи