Задача на матрицу [Паскаль]

[Ам тя]

V V
V V V
V V V
V V V
V V
это матрица размером 5Х5
значения элементов выбрать самостоятельно
необходимо в матрице А сформировать другую матрицу В размером 5Х5
V равны соответствующим элементам исходной матрицы А
остольные же элементы равны 0
Предусмотреть ввод исходной матрицы А, ее контрольный вывод, пересылку ее в матрицу В, обработку и вывод ее результирующей матрицы В. Цикл обработки реализовать с помощью оператора цикл с параметром.
я не много поняла ....

for row:=1 to 5 do 
for col:=row-1 to row+1 do {так потому что там закономерность вроде}
of (col>0) and (col<G) then
B[row,col]:=A[row,col]

это ... все х)
?
помогите )))

[Ам тя]

B)
(10символ)

[ОДИНОЧЕСТВО В СЕТИ]

uses
  Crt;
 var a,b:array[1..5,1..5] of integer;
   i,j:Integer;
begin
  Randomize;
  for i:=1 to 5 do
  for j:=1 to 5 do
    begin
      a[i,j]:=Random(10)+1; // для ручного ввода заменить на readln(a[i,j]);
      b[i,j]:=0;
    end;
  clrscr;
  Writeln('--Matrix A--');
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
        write(a[i,j]:8);
      Writeln;
    end;
  For i:=1 to 5 do
    b[i,i]:=a[i,i];
  For i:=2 to 5 do
    b[i,i-1]:=a[i,i-1];
  for i:=1 to 4 do
    b[i,i+1]:=a[i,i+1];
  Writeln('--Matrix b--');
  for i:=1 to 5 do
    begin
      for j:=1 to 5 do
        write(b[i,j]:8);
      Writeln;
    end;
  Writeln('press AnyKey to exit');
  Readln;
end.

[Ам тя]

можешь не много объяснить?.....

[Utkin]

Первый блок циклов - внесение информации (случайным образом)
Второй блок циклов - вывод матрицы на экран
Третий блок циклов - расчет
Четвертый блок циклов - вывод на экран результата

Writeln('press AnyKey to exit');
Readln;

Надо чтобы программа сразу не закрывалась (чтобы пользователь успевал прочесть результат)

[Ам тя]

begin
for j:=1 to 5 do
write(a[i,j]:8);
Writeln;
end;

а что 8 означает?

спс)

[Вавел из ГМТУ]

А ты напиши write(a[i,j]); и посмотри что получиться...
Так вот чтоб получалось более окуратно, надо немгоно "подрезать" результат. Кароче это кол-во знаков после запятой вроде, ибо тип Real.

[Ам тя]

спс
какой раз мне это говорят я не могу запомнить