Перевернуть матрицу

[Sweta]

for i:=0 to 10 do
begin
mas[10-i]:=mas[1+i];
end;

У Вас mas[1+i] затрет значение mas[10-i], и где Вы его потом возьмете?
Вам ведь написали:" Сохранить элемент массива, который будет первым заменяться, заменить все элементы, последний заменить переменной."
Вавел опередил. А пользоваться тег-кодом необходимо следующим образом - выделить текст и нажать #.

[10Rabbit]

Спасибо!!всем всё получилось!!!

uses
  SysUtils;

var
  mas:array[1..60] of integer; {opredeliaem massiv celih chisel}
  i: byte;       {------------------------}
  m: integer;    {dopolnitelnie peremennie}
  il: byte;      {------------------------}

begin
  for i:=1 to 60 do
   begin {formiruem massiv}
    Write('Vvedite ',i,' element :>');
    Readln(mas[i]);
   end;

  Writeln('Ishodniy massiv:');
  for il:=1 to 60 do Write (mas[il],' ');

  for i:=1 to 60 div 2 do
    begin {Pereformirovanie massiva}
      m:=mas[i];
      mas[i]:=mas[60-i+1];
      mas[60-i+1]:=m;
    end;
 Writeln;
 Writeln('Konechiy massiv:');
  for il:=1 to 60 do Write (mas[il],' ');

  Writeln;
  readln; {oshidanie nashatia na knopku}

end.