вывод текста, выкидывая из него введенное слово

uses crt;
var f:file of char;{типизированный символьный файл}
    t,s:array[1..700] of char;{символьные массивы текст и слово}
    nt,ns,i,k,j,l:word;{длины массивов и счетчики циклов}
begin
clrscr;
assign(f,'text2.dat');{связываем переменную с файлом}
reset(f);{открываем для чтения}
nt:=0;
while not eof(f) do
  begin
    inc(nt);
    read(f,t[nt]);{читаем посимвольно в массив}
    write(t[nt]);{выводим на экран - задание №1}
  end;
writeln;
close(f);{закрываем файл}
writeln('Vvedite slovo dlya poiska:');
write('Dlina slova ns=');
readln(ns);
for i:=1 to ns do
read(s[i]);{вводим посимвольно слово, лучше через repeat, но не смог сходу придумать признак окончания ввода, может кто поправит}
readln;
for i:=1 to nt do {идем по тексту}
if t[i]=s[1] then {если нашли первый символ слова}
  begin
    k:=0;
    for j:=2 to ns do {проверяем еще подряд на 1 меньше}
    if t[i+j-1]=s[j] then inc(k);{совпадающие считаем}
    if k=ns-1 then {если все совпали}
    for l:=i to nt-ns do {от первого совпавшего до конец минус длина слова}
    t[l]:=t[l+ns];{сдвигаем все элементы массива влево на длину слова}
    dec(nt,ns);{уменьшаем размер массива}
  end;
for i:=1 to nt do
write(t[i]);{выводим результат посимвольно - задание №2}
readln
end.

var f:file of char;
    t,s:array[1..700] of char;
    nt,ns,i,k,j,l:word;
    fname:string;
begin
clrscr;
write('Vvedite imya faila:');
readln(fname);
assign(f,fname);{типизированный символьный файл}