народ помогите задан двухмерный массив вытянуть его в строку обходя его построчно

Если Turbo Pascal или Delphi,
то проще простого:

var
  A2 : array [1..10, 1..10] of Integer;
  AL : array [1..100] of Integer absolute A2;
  Row, Col, N : Integer;
begin
  Randomize;
  WriteLn('Исходный массив');
  for Row := 1 to 10 do
    begin
      for Col := 1 to 10 do
        begin
          A2[Row, Col] := Random(10);
          Write(#32, A2[Row, Col]);
        end;
      WriteLn;
    end;
  WriteLn('Линейный массив:');
  for N := 1 to 100 do
    Write(#32, AL[N]);
  WriteLn;
end.

Результат:

Исходный массив
7 8 1 3 6 3 3 0 6 0
0 9 7 2 9 0 1 1 5 4
5 4 5 9 4 3 5 4 3 5
3 5 4 8 7 0 4 3 9 9
6 2 3 2 5 7 7 6 5 4
7 4 2 9 2 2 3 1 9 2
7 9 6 0 6 5 5 9 5 9
5 8 1 5 7 2 1 2 3 6
6 9 9 8 8 8 2 4 5 4
7 2 4 6 2 7 6 2 6 0
Линейный массив:
7 8 1 3 6 3 3 0 6 0 0 9 7 2 9 0 1 1 5 4 5 4 5 9 4 3 5 4 3 5 3 5 4 8 7 0 4 3 9 9 6 2 3 2 5 7 7 6 5 4 7 4 2 9 2 2 3 1 9 2 7 9 6 0 6 5 5 9 5 9 5 8 1 5 7 2 1 2 3 6 6 9 9 8 8 8 2 4 5 4 7 2 4 6 2 7 6 2 6 0

Нуу.. . В цикле от 1 до количества строк перебирай строки и бери нужную