Объясните, что делает эта процедура. Построчно

Procedure vvod(Var x:Matr; n:Byte);
 
Var d,i,j:Byte; S,y : String;
 
Begin
clrscr;
writeln('Введите матрицу построчно');
For i:=1 to n do
   begin
   y:=' ';
   d:=WhereY;
   GotoXY(1,d);
   For j:=1 to n do
           begin
           Readln(x[i,j]);
           Str(x[i,j]:6,S);
           y:=y+S;
           GotoXY(Length(y),d);
           end;
    Writeln;
    end;
End;

//должен быть подключен модуль uses CRT;
Procedure vvod(Var x:Matr; n:Byte);
Var d,i,j:Byte; S,y : String;
Begin
clrscr;  //очищаем экран
writeln('Введите матрицу построчно');
For i:=1 to n do
 begin
  y:=' ';//строка из 1 пробела(возможно должна бытьпустая строка y:='')
  d:=WhereY; //подожение курсора по вертикали, номер строки
  GotoXY(1,d);//ставим курсор в начало этой строки
  For j:=1 to n do  //n раз
   begin
    Readln(x[i,j]); //читаем число(элемент матрицы)
    Str(x[i,j]:6,S);//преобразуем его в строку, выделяя под него 6 позиций
    y:=y+S;//добавляем к строке y
    GotoXY(Length(y),d);//перемещаем курсор в этой строке на длину строки y
   end;
  Writeln; //переход на новую строку
 end;
End;