изменить код в делфи

[Murfik97]

Условие:Дана матрица А порядка n.
Поменяйте местами строки: первую с последней, вторую с предпоследней и т.д.

Вроде все верно, но гдет при сортировке намудачил, кто знает как лучше здесь исправить, большое спасибо

 procedure TForm1.Button1Click(Sender: TObject);
var
  A: array [1..10, 1..10] of integer;
  c, i,j,n:integer;
begin
  Label4.Caption:='';
  Label3.Caption:='';
  if (Edit1.Text='') then
    begin
      showmessage(('Да ты нечего не вел,')+#13+(' зачем ты просто на кнопку нажимаешь,')+
      #13+('я ваще таких людей не понимаю'));
      exit;
    end;
  n:=StrToInT(Edit1.Text);
  for i:=1 to n do
  for j:=1 to n do
     a[i,j]:=random(10);
  for i:=1 to n do
    begin
      for j:=1 to n do
      Label4.Caption:=Label4.Caption+ IntToStr(a[i,j])+' ';
      Label4.Caption:=Label4.Caption+#13;
--------------------------------------------------------------------(тут была задана матрица и то что если не че в поле не ведешь)
    end;
      begin
        for i:=1 to n do
        for j:=1 to (n div 2) do \\а вот здесь самое интересное,стараюсь поменять эти строчки, но чет не так) 
          begin
            c:=a[i,j];
            a[i,j]:=a[i,(n-i+1)];
            a[i,(n-i+1)]:=c;
          end;
            for i:=1 to n do
              begin
                for j:=1 to n do
                Label7.Caption:=Label4.Caption+ IntToStr(a[i,j])+' ';
                Label7.Caption:=Label7.Caption+#13;
      end;
    end;
end;
end.

[Streletz]

Не пробовали воспользоваться поиском по форуму?
http://www.programmersforum.ru/showthread.php?t=70310

[Murfik97]

Но как бы у меня вроде также в коде отображено как и в той статье, но и помимо
этого, как задать правильно чтоб менял 1 и последнюю, 2 и предпоследнюю и т д, Я не уверен что правильно прописал, поэтому кто знает как это сделать, прошу помочь изменить данный код

[BDA]

for i := 1 to n div 2 do
    for j := 1 to n do 
    begin
        c := a[i, j];
        a[i, j] := a[n - i + 1, j];
        a[n - i + 1, j] := c;
    end;

[Murfik97]

Да я засек это уже что для строчек 1-ым должно быть, но на удивление все равно на лебеле 7 выдает только то что и на 4

[BDA]

Label7.Caption := '';
for i := 1 to n do
begin
    for j := 1 to n do
        Label7.Caption := Label7.Caption + IntToStr(a[i,j]) + ' ';
    Label7.Caption := Label7.Caption+#13;
end;

[Murfik97]

Спасибо вам, проблема была в экзэшники путь его шел к другой заброшеной мной проги которую я забросил, и поэтому не работало

[Poma][a]

А ведь строки матрицы можно как угодно использовать при присваивании