Пожалуйста, помогите

[melanoma]

Очень нужно решить 2 задачи в Delphi

1. В заданном массиве A1, A2, A3, ... , An произвести циклический сдвиг элементов на одну позицию вправо, т.е. преобразовать к виду А2, А3, ... , An, A1.

2. Задана матрица Am*n. Определить, есть ли в ней строки, все элементы которых равны нулю, за исключением последнего. Вывести на печать номера таких строк или информацию об отсутствии подобной строки.

[north]

program d;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
a:array[1..100] of integer;
c,i:integer;

procedure sdvig;
var j,x,p:integer;
begin
    p:=a[1];
    a[1]:=0;
    for j:= 2 to c+1 do begin
        x:=a[j];
        a[j]:=p;
        p:=x;
        end;
    end;

begin
    while not eoln do begin
        inc(c);
        read(a[c]);
        end;
    sdvig;
    for i:= 1 to c+1 do write(a[i],' ');
    end.

[Леся]

Пожалуйста, помогите решить 2 задачки! Это ОЧЕНЬ ОЧЕНЬ СРОЧНО!!!
1)Составить функцию, которая вычисляет объём и площадь куба.
2)Написать процедуру, которая упорядочит одномерный массив в порядке
возростания.

[north]

1) вроде так:
объём куба =a*a*a
площадь а*а*6


2)

for i:= 1 to c-1 do
for j:= i+1 to c do
if a[i]>a[j] then begin
   x:=a[i];
   a[i]:=a[j];
   a[j]:=x;
   end;