Составить программу, для вывода данных в файл следующим образом: - QBasic

Формулировка задачи:

Необходимо составить программу,которая бы выводила данные в файл следующим образом:

Спойлер

Попытался сделать в виде двухмерного массива, но появилась проблема с соблюдением столбцов и вредничают цифры-символы. Поэтому не получается даже сделать автоматическим вводом номера строки. Вот сам код:

Спойлер

Так выводит на экран без вывода в файл, получается каша(не делает пробелы,только если самому писать)

Спойлер

А так выводит в файл, что еще хуже:

Спойлер

Помогите пожалуйста исправить и дописать программу. Большое спасибо

Решение задачи: «Составить программу, для вывода данных в файл следующим образом:»

Листинг программы

DIM fam AS STRING, nam AS STRING, result AS INTEGER, i AS INTEGER
OPEN "c:\prob.txt" FOR OUTPUT AS #1
WIDTH #1,40
PRINT #1,TAB(1);"N";TAB(5);"Familia";TAB(20);"Name";TAB(35);"Result"
DO
  INPUT "Familia Enter: ",fam
  INPUT "Name Enter: ",nam
  INPUT "Result Enter: ",result
  IF (fam="") OR (nam="") OR (result=0) THEN EXIT DO
  i=i+1
  PRINT #1,TAB(1);i;TAB(5);fam;TAB(20);nam;TAB(35);result
LOOP
CLOSE #1
END

Объяснение кода листинга программы

Указываются переменные, которые будут использоваться в коде: fam, nam, result, i.
Открывается файл c:\prob.txt для записи данных.
Устанавливается ширина поля вывода в 40 символов.
Выводится заголовок таблицы с названиями столбцов: N, Familia, Name, Result.
Запускается цикл, который будет выполняться до тех пор, пока не будут введены все данные.
Пользователю предлагается ввести данные для каждой строки таблицы: familia, name, result.
Проверяется, не пустые ли поля ввода. Если хотя бы одно поле пустое, то цикл прекращается.
Каждая строка таблицы выводится в файл с помощью функции PRINT.
Каждая итерация цикла увеличивает значение переменной i на 1.
После окончания цикла, файл закрывается.