Delphi 7 Обработка данных в многомерных массивах.

[Alkifr]

Спасибо большое конечно, но это вроде на Pascale, а я в нем вообще не бум-бум, напиши пожалуйста на языке Delphi если можно

[Alkifr]

Сообщение от kakawkin

Program tt;
Uses Crt;

Var
X { Данный массив }
: array [1..256] of real;

y { Искомое число }
: real;

i, { Переменная цикла, индекс массива }
j, { Переменная цикла }
N, { Размер массива }
max, { Максимальное число повторов искомого числа }
S { Количество одинаковых чисел }
: integer;

Begin
ClrScr;

{
ввод массива
}
Write ('Сколько элементов в массиве: ');
ReadLn (N);
if N <= 1
then
begin
WriteLn;
WriteLn ('Решать задачу не имеет смысла...');
ReadLn;
Exit;
end;

WriteLn;
WriteLn ('Введите элементы массива: ');
for i := 1 to N do
begin
Write ('X [', i, '] = ');
ReadLn (X [i]);
end;
WriteLn;

{
просмотр элементов массива и подсчет одинаковых
}
max := 0;
S := 0;
for i := 1 to N - 1 do
begin
if S > max
then
begin
max := S;
y := X [i - 1];
end;
S := 1;
for j := i + 1 to N do
if X [i] = X [j]
then
S := S + 1;
end;

if S > max
then
begin
max := S;
y := X [j];
end;

{
печать результата
}
WriteLn;
WriteLn ('Число, повторяющееся максимальное число раз: ', y);
WriteLn ('Это число повторяется ', max, ' раз(а).');

ReadLn;
End.

Спасибо большое, но прога вроде на Pascale написана, а я в нем ни бум-бум, напишите пожалуйста на языке Delphi 7, если можно конечно))