Напишите пожалуйста программу на Java или Delphi

program q216413532;

{$APPTYPE CONSOLE}

uses
Windows, SysUtils, Math, Classes;

var
i, m: Integer;
s: string;

begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
Readln(s);
with TStringList.Create do
try
Delimiter := ',';
DelimitedText := Copy(s, 1, IfThen(Pos('.', s) > 0, Pred(Pos('.', s)), Length(s)));
Sort;
if Count > 0 then
begin
m := Length(Trim(Strings[0]));
for i := 0 to Pred(Count) do
if Length(Trim(Strings[i])) < m then
m := Length(Trim(Strings[i]));
for i := 0 to Pred(Count) do
if Length(Trim(Strings[i])) = m then
WriteLn(Trim(Strings[i]));
end;
finally
Free;
end;
ReadLn;
end.

var str = 'подоконник, стол, электрофикация, окно, дверь, стул.';
var str = str.split('');
for (var i = 0; i < str.length; i++) {
if (str[i] == ',' || str[i] == '.') {
str.splice(i,1);
}
};
str = str.join('');
var strArr = str.split(' ');
var min = strArr[0].length;
var res = '';
for (var i = 0; i < strArr.length; i++) {
if (strArr[i].length < min) {
min = strArr[i].length
}
};
for (var i = 0; i < strArr.length; i++) {
if (strArr[i].length == min) {
res += strArr[i] + ' '
}
};
document.write('Наименьшая длина в строке у слов ' + res);

Copy(S, 0, Pos('.', S) - 1)
StringList.CommaText
StringList.CustomSort
l := length(StringList[0])
for i := 0 to StringList.Count-1 do
begin
if length(StringList[0]) = i then
writeln(StringList[0])
else break
end

А это что дельфин по Русски, или иностранное слово, в словаре русского языка -нет, и какой корень у этого слова?