[Turbo Pascal] "Przerobienie" rekordów na file text

Cześć!
Czy istnieje możliwość "przerobienia" tego:

 type
  muzyka = record
    dlugosc: array[1..max] of integer;
    znaki:   array[1..max] of char;
    ilosc:   integer;
  end;

var
  plik: file of muzyka;
  melodia: muzyka;
  i: integer;

na file text?
Muszę to przerobić ponieważ chce zapisywać melodie(znaki) do pliku tekstowego w takiej postaci: naciśnięty znak ~ czas jego trwania.

pozdrawiam, w razie co mogę przesłać cały kod programu :)

Możliwość zawsze istnieje.

To sprostuje pytanie, jak to "przerobić"?

Jak najłatwiej/najprościej.

Kolejne sprostowanie jak najłatwiej i jak najprościej można przerobić te rekordy na plik tekstowy? :D. Sie czepiacie słówek ;)

Odczytaj rekord i zapisz go w postaci mniej-więcej takiej:
pętla q od 1 do max i wykonaj
znak:=Integer_Do_Stringa(z_rekordu_znak[q]);
dlug:=(z_rekordu_dlugosc[q]);
Write(TextFile, znak);
Write(TextFile, dlug);
koniec pętelki;