Нужна помощь: многомерные массивы, матрицы. Опции

[Яndex]

вот задача:
организовать ввод данных их фаила (f1.txt), решить СЛУ с верхней треугольной матрицей.

uses crt;
var s,x,k,l,i,j,n:integer;
q:array[1..6,1..5] of integer;
xn:array[1..5] of integer;
f1:text;
begin
clrscr;
 assign (f1,'f1.txt');
 reset (f1);
 for i:=1 to 6 do begin
 for j:=1 to 5 do begin
  read (f1,q[i,j]);
  write (q[i,j]:6);
  end;
  readln(f1);
  end;
  for k:=n downto 1 do begin
  s:=0;
  for l:=k+1 to n do begin
  s:=s+q[i,j]*xn[l];
  end;
  writeln(xn[k]);
  readln;
  end;
  readln;
  end.

примерно так, но вот не получается вывести строку переменных X... и ваще хз считает ли он их, т.к. выводит он строку нулей (приэтом последний X точно не равен 0).
фаил ф1- константы в блокноте (6x5)

[Ozzя]

    1     2     3     4     5     0     3     4     5     2     0     0     1
  0

Посмотрел. Выводит эдак вот твоя программа.
Эрго - что-то считает.
Правильно ли?
Проверь.
Оттестируй.
Волшебные кнопки F7,F8