Нужна программа в Делфи

[ololoder]

Проблема такая:препод сказал выполнить уже готовую программу на паскале в делфи на ооп.
Условие задачи:
В заданной матрице W упорядочить по убыванию элементы каждого столбца матрицы. Исходную и полученную матрицу вывести в общепринятом виде.
Сама задача выполненная на ABCPascal:

program masiv;
uses crt,GraphABC;
var
i,v,x,y,B,k:integer;
a1: array [1..100,1..100] of integer;
begin
TextAttr:=16*Black+Green;
writeln('размерность Х*У');
readln(x,y);
for i:=1 to x do
begin
 writeln;
for v:=1 to y do
begin
read(a1[i,v]);
//a1[i,v]:=random (100);
Write (a1[i,v]:4);
end;
end;
for v:=1 to x do
for k:=1 to y-1 do
for i:=1 to y-k do
if a1[i,v]<a1[i+1,v] then
begin
B:=a1[i,v];
a1[i,v]:=a1[i+1,v];
a1[i+1,v]:=B;
end;
writeln;
writeln;
writeln('Конечная матрица');
for i:=1 to x do
begin
 writeln;
for v:=1 to y do
begin
Write (a1[i,v]:4);
end;
end;
end.

Задача: Выполнить при помощи StringGrid.

[xoodoo]

А давай я тебе денег дам - просто так и много ?

[ololoder]

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

А давай я тебе денег дам - просто так и много ?

Думаю над глупыми студентами не очень хорошо ржать

[xoodoo]

Это ты что ли "глупый студент" ?
Ты наглый и бесстыдный халявщик.

[Stilet]

Почти Делфи:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids;

type

  { TForm1 }

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
i,v,x,y,B,k:integer;
a1: array [1..100,1..100] of integer;
begin
x:=StringGrid1.ColCount-1;
y:=StringGrid1.RowCount-1;

for i:=1 to x do begin
 for v:=1 to y do
  a1[i,v]:=Random(100);
  StringGrid1.Cells[i,v]:=IntToStr(a1[i,v]);
end;
for v:=1 to x do
 for k:=1 to y-1 do
  for i:=1 to y-k do
    if a1[i,v]<a1[i+1,v] then begin
       B:=a1[i,v];
       a1[i,v]:=a1[i+1,v];
       a1[i+1,v]:=B;
    end;

for i:=1 to x do begin
for v:=1 to y do begin
 StringGrid1.Cells[i,v]:=IntToStr(a1[i,v]);
end;
end;
end;

end.

[ololoder]

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

Это ты что ли "глупый студент" ?
Ты наглый и бесстыдный халявщик.

Знаешь,я бы может быть и рад быть халявщиком,да вот только не получается у меня как-то,не моё это