Помогите с программой

[Panda]

Распишите пожалуйста за что отвечает каждая строчка вот в этой программе:

uses crt;
type mas=array[1..11,1..11] of integer;
mas1=array[1..11,1..11] of real;
matr=array[1..11] of integer;
var a:mas;
a1,a2:mas1;
xy,xy1:matr;
m,n:byte;
i,j:byte;
k,x:integer;
z:byte;
begin
writeln('vvedite kolicestvo strok v matrice');
read(m);
begin
  writeln('vvedite kolcestvo stolbcov v matrice(<=10)');
read(n);
    end;
    begin
    writeln('vvedite znacenie elementov(<=10)');
for i:= 1 to m do
begin
for j:= 1 to n do
begin

write('a[',i,',',j,']=');
read(a[i,j]);
a1[i,j]:=a[i,j];
a2[i,j]:=a[i,j];
end;
writeln;
end;
clrscr;
writeln('isxodnaia matrica');
for i:=1 to m do
begin
for j:= 1 to n do
write(a[i,j]:5);
writeln;
end;
k:=32767;
readkey;
clrscr;
end;
i:=m+1;
for j:=1 to n do
a1[i,j]:=xy[j];
for i:=1 to m do
begin
xy1[i]:=0;
for x:=2 to k do
begin
z:=0;
for j:=1 to n do
if a[i,j] mod x = 0 then
z:=z+1;
if z=n then
xy1[i]:=x
end;
if xy1[i]=0 then
xy1[i]:=1;
end;
writeln;
for i:= 1 to m do
begin
for j:=1 to n do
begin
a2[i,j]:=a2[i,j]/xy1[i];
end;
end;
j:=n+1;
for i:=1 to m do
a2[i,j]:=xy1[i];
readkey;
clrscr;
writeln('Rezult matr');
writeln;
writeln('po stroke');
writeln;
for i:=1 to m do
begin
for j:=1 to n+1 do
if j=n+1 then
begin
write(' |');
write(a2[i,j]:5:0);
end
else
begin
write(a2[i,j]:5:0);
end;
writeln;
end;
end.

Кто поможет, ОГРОМНОЕ СПАСИБО!

[Stilet]

Скажем так:
readkey - Эдет ввода символа и запоминает его в результат
clrscr - Очищает экран.

Остальные операции описаны в любой книге по паскалю, методичках и прочем чтиве. О так же в Хелпе (как ни парадок сально)

[puporev]

А если не секрет, то что делает сия программа?

[Panda]

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

А если не секрет, то что делает сия программа?

вычисляет общий множитель и выносит его за |

[puporev]

Вообще эта программа не работает, а эти строчки

for j:=1 to n do
a1[i,j]:=xy[j];

не имеют смысла, т.к. xy[j] - это ничто.