Интеграция Pascal кода в Delphi

[VaLenOK007]

Привет товарисчи! Кому не сложно, подмогните, я с дельфом не очень дружу, на уровне написания калькулятора, кто сможнёт, встройте коды в программку, а то я не знаю как)

1.Вывести на экран номера столбцов, в которых максимальный элемент попадает в интервал [A,B], а так же соответствующие значения максимальных элементов(тобиш номера этих элементов)

Var c:array[1..100,1..100] of longint;
i,j:byte;
a,b:longint;
n,max:integer;
begin
 writeln('введи N'); readln(n);
  Writeln('Введи интервал'); readln(a,b);
 Writeln('Введите элементы: ');
 For i:=1 to n do
  Begin
   For j:=1 to n do
    Readln(c[i,j]);
    end;  
  max:=c[i,1];
   if ((c[i,j] in [a..b]) and (c[i,j]>max))
   then begin
    max:=c[i,j];
   break;
  end; end;
  Writeln('максимум ',max,' на столбце ',j,' на строке ',i );
  end;
 readln;
 end.

2. Сформировать одномерный массив, состоящий из кол-ва положительный, отрицательных и нулевых элементов матрицы X[n,m]

program mas;
uses crt;
var
 h,i,pol,otr,nul:integer;
 x:array [1..n,1..n] of extended; y:array [1..n] of extended;
 begin
 writeln('введи n'); readln(n)
 writeln('Введи элементы массива');
  otr:=0;
  pol:=0;
  nul:=0;
 for i:=1 to n do begin
  for j:=1 to n do
   readln(x[i,j]);
   if x[i,j]<0 then otr:=otr+1;
   else if x[i,j]>0 then pol:=pol+1;
   else if x[i,j]=0 then nul:=nul+1;
 end;
 
readln;
end.

3 Все элементы матрицы X[n,n] лежащие ниже второстепенной диагонали заменить суммой элементов дробной части, стоящих в нечетных столбцах

Const
 n = 3;
Var
 a:array [1..n,1..n] of extended;
 i,j:integer;
 sum:extended;
Begin
 Writeln('Введите элементы: ');
 For i:=1 to n do
  Begin
   For j:=1 to n do
    Readln(a[i,j]);
   Writeln('---');
  End;
 Writeln;
 writeln('Начальная матрица: ');
 For i:=1 to n do
  Begin
   For j:=1 to n do
    Write(a[i,j],' ');
   writeln;
  End;
 sum:=0;
 For i:=1 to n do
  For j:=1 to n do
   If (odd(j)) and (frac(a[i,j]) <> 0) then sum:=sum+a[i,j];
 Writeln;
 Writeln('Сумма элементов, стоящих в нечетных столбцах и имеющих дробную часть ',sum);
 For i:=2 to n do
  For j:=n-i+2 to n do
   a[i,j]:=a[i,j]+sum; {Выполнение сложения}
 writeln;
 Writeln('Конечная матрица: ');
 For i:=1 to n do
  Begin
   For j:=1 to n do
    Write(a[i,j],' ');
   writeln;
  End;
End.

Вроде оно и не сложно, но что-то не выходит. Естессно, програмки должны выполняться по выбору, I,II или III
За помощь, желательно с комментами что и куда делали(ибо я и сам разобраться хочу) куча благодарностей гарантирую!

[Alex11223]

Проблема-то в чем? Вы создаете консольное приложение в Дельфи? Какие ошибки?

[VaLenOK007]

Ошибки в непонимании, задача заключается в том, чтобы данные коды(точнее их результаты) выводились и вводились как таблица, но при построении процедуры ничего не работает (и я не понимаю почему). Я вот не знаю, с какой стороны подступить к этому

[Alex11223]

но при построении процедуры ничего не работает (и я не понимаю почему)

Какой процедуры? Что и как строите? Какие ошибки выдает?

выводились и вводились как таблица

Куда выводились? Спроектируйте сначала более точно что вы хотите получить. Во 2 коде речь про массив n*m, в 3 про n*n. Насколько я понял должна быть таблица (массив Х) и 3 кнопки, которые выводят таблицы с результатом соответствующей операции над этим массивом?

[VaLenOK007]

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

Какой процедуры? Что и как строите? Какие ошибки выдает?

Куда выводились? Спроектируйте сначала более точно что вы хотите получить.

Хм, начальное меню в котором три кнопки, выбора заданий. Далее, при нажатии на определенную кнопку, выводится окошко, с таблицей (пустой, скажем 5 на 5, либо рандомной, но это уже не важно) которую надо заполнить, либо там уже будут данные от рандома. Далее при нажатии на кнопочку, вывод отсортированной матрицы в другой таблице... Вот в этом то и ошибка, при создании таблицы, код не воспринимается.

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

Во 2 коде речь про массив n*m, в 3 про n*n. Насколько я понял должна быть таблица (массив Х) и 3 кнопки, которые выводят таблицы с результатом соответствующей операции над этим массивом?

Ну вроде того, я описал выше.

[Alex11223]

при создании таблицы, код не воспринимается

Код-то где?

[VaLenOK007]

В кнопке, как я понял надо так

[Alex11223]

Я имел в виду, что у меня временно за неуплату отключены телепатические способности и хотелось бы увидеть код.

[VaLenOK007]

Ах да, прошу прощения)

procedure TForm1.Button4Click(Sender: TObject);
Var c:array[1..100,1..100] of longint;
i,j:byte;
a,b:longint;
n,max:integer;
 For i:=1 to n do
  Begin
   For j:=1 to n do
    Readln(c[i,j]);
    end;
  max:=c[i,1];
   if ((c[i,j] in [a..b]) and (c[i,j]>max))
   then begin
    max:=c[i,j];
   break;
  end; end;
  showMessage('результат')
  end;

[Alex11223]

Readln(c[i,j]);

естественно не будет работать, это же не консольное приложение. Вводить что-либо надо из какого-то другого компонента (edit и т.д.). Вообще тут не надо вводить значения каждого элемента массива. Массив в принципе тоже не очень нужен, можно напрямую с таблицей (StringGrid). Ну или заполнять массив из таблицы (обратите внимание, что там индексы с 0, а не 1) и наоборот.