Проигрывание WAV через спикер [TPascal]

[Мартин]

Накодил следующую программу для проигрывания WAV файла через спикер под досом. Читаю файл как текст. Как можно исправить несовпадение типов?

program trololo;
uses crt;
var name, cache : string;
var marker : text;
var wav_file : array[0..5000] of byte;
var speaker_sound : array[0..5000] of word;
var i : integer;
begin
writeln('File:');
readln(name);
assign(marker, name);
reset(marker);
for i := 0 to 5000 do readln(marker, wav_file[i]);
for i := 0 to 5000 do speaker_sound[i] := word(wav_file[i]) shl 8;
for i := 0 to 5000 do
begin
sound(speaker_sound[i]);
delay(50);
end;
nosound;
end.

Скриншот ошибки: