Чтение файла))

Procedure Vivod (var b:text;Var v:VV);
Var x:integer;
    k,i,j:byte;
Begin
Reset(b);
Writeln('Vector V');
k:=0;
For j:=1 to n do
  Begin
    Read(b,x);
    k:=k+1;
    v[k]:=x;
    Write(v[k]:5);
    If j=n then
              For i:=2 to n do
               Begin
                Readln(b,x);
                k:=k+1;
                v[k]:=x;
                Write(v[k]:5);
                If i=n then
                  For j:=n-1 downto 1 do
                   Begin
                    Read(b,x);
                    k:=k+1;
                    v[k]:=x;
                    Write(v[k]:5);
                    If j=1 then
                      For i:=n-1 downto 2 do
                       Begin
                        Readln(b,x);
                        k:=k+1;
                        v[k]:=x;
                        Write(v[k]:5);
                       End;
               End;
         End;
    End;
Close(b);
End;