Дан файл вещественных чисел, содержащий ненулевую часть трехдиагональной матрицы (по строкам)

var
  Form1: TForm1;
  t2:TStringList;
  n:integer;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
    r:double;
    t1:TStringList;
    s,s1:string;
begin
t1:=TStringList.Create; //создаем список и грузим в него наш файл
if OpenDialog1.Execute then t1.LoadFromFile(UTF8ToSys(OpenDialog1.Filename));
t1.DelimitedText:=t1.Text;//разбиваем его на числа
//отформатируем числа для вывода в файл
//считаем что числа в исходном файле имеют не более 2 знаков в целой части
for i:=0 to t1.Count-1 do
 begin
  val(t1[i],r,k);
  str(r:6:2,s); //вывод в формате _00.00
  t1[i]:=s;
 end;
s1:='  0.00'; //нулевые ячейки
n:=2+(t1.Count-4)div 3;//размер матрицы=2 строки по 2 числа+(n-2) по 3 числа
t2:=TStringList.Create; //создаем список дляформирования матрицы
k:=0;//индекс в первом списке
for i:=1 to n do
 begin
  s:=''; //формируем i-товую строку
  if i=1 then//если первая
   begin
    for j:=1 to 2 do //2 числа в начале
     begin
      s:=s+t1[k];
      inc(k);
     end;
    if n>2 then //если больше 2, то дописываем ноли
    for j:=i+2 to n do s:=s+s1;
   end
 else if i<n then //если [2..n-1]
  begin
   if n>3 then//если размер больше 3
   for j:=1 to i-2 do s:=s+s1;//ноли в начале
   for j:=i-1 to i+1 do //три числа
     begin
      s:=s+t1[k];
      inc(k);
     end;
   if i+1<n then //если не вся строка, то ноли в конец
   for j:=i+2 to n do s:=s+s1;
  end
 else //последняя строка
  begin
   if n>2 then //если больше 2
   for j:=1 to i-2 do s:=s+s1;//ноли в начало
   for j:=n-1 to n do // 2 числа
    begin
     s:=s+t1[k];
     inc(k);
     end;
   end;
  t2.Add(s);//вставим строку в список 2
 end;
end;
//сохраним список 2 в файл
procedure TForm1.Button2Click(Sender: TObject);
begin
  if SaveDialog1.Execute then t2.SaveToFile(UTF8ToSys(SaveDialog1.FileName));
  ShowMessage('Матрица прочитана и записана в файл '+SaveDialog1.FileName);
end;