Ошибка при работе программы с текстовым файлом

Program lr5;
uses crt; //подключение графического модуля
procedure input (var s: string; var t: text); //процедура ввода входного текстового файла и проверка на правильный ввод
var
 c: integer;
begin
 write('Enter the file name: ');
 repeat
 readln(s);
 s:=s+'.txt';
 assign(t, s);//связь кода и тестового файла
 {$I-}
 reset(t);//открытие файла
 if c<>0 then //проверка на правильность ввода
 writeln('Error...');
 until c=0;
end;
procedure calc (var t:text; var n:string);//процедура в текстовом файле
begin
  reset(t);
  while not EOF(t) do //считывание до конца файла
begin
 while not EOLn(t) do //считывание до конца линии
 begin
If n[1] in ['0'..'9'] Then
begin
  Insert('(',n,1);
  Insert(')',n,Length(n)+1);
end;
end;
end;
end;
procedure copy (var t:text; var c:text);//процедура копирования входного текстового файла в отдельный
var
 st:char;
begin
 reset(t);
 assign(c,'copy.txt');//связь кода с файлом для копии
 rewrite(c);
 while not eof(t) do
 begin
 while not eoln(t) do
 begin
 read(t,st);
 write(c,st);
 end;
 writeln(c);
 readln(t, st);
 end;
 close(c);
end;
procedure output (var t: text; var tOut: text; n: string);//процедура вывода результатов на экран и в отдельный текстовый файл
begin
 assign(tOut, 'output.txt');
 rewrite(tOut);
 writeln(tOut, 'converted text ', n);
 close(tOut);
 close(t);
 writeln('converted text ', n);
end;
//основная программа
var
 sen: string;
 name: string;
 textIn, textOut,textCopy: text;
begin
 clrscr;//очистка экрана
 Writeln('The program puts the left parenthesis, and at the end of the line - the right parenthesis, if the line starts with a number ');
 input(name, textIn);
 calc(textIn, sen);
 copy(textIn,textCopy);
 output(textIn, textOut, sen);
 readln;
end.

procedure calc(var t: text; var n: string);//процедура в текстовом файле
begin
  reset(t);
  while not EOF(t) do //считывание до конца файла
  begin
    readln(t, n);
    if n[1] in ['0'..'9'] Then
    begin
      Insert('(', n, 1);
      Insert(')', n, Length(n) + 1);
    end;
  end;
end;

program lr5;
 
uses crt;//подключение графического модуля
 
procedure input(var s: string; var t: text);//процедура ввода входного текстового файла и проверка на правильный ввод
var
  c: integer;
begin
  write('Enter the file name: ');
  repeat
    readln(s);
    s := s + '.txt';
    assign(t, s);//связь кода и тестового файла
    {$I-}
    reset(t);//открытие файла
    if c <> 0 then //проверка на правильность ввода
      writeln('Error...');
  until c = 0;
end;
 
procedure calc(var t: text; var n: string);//процедура в текстовом файле
begin
  reset(t);
  while not EOF(t) do //считывание до конца файла
  begin
    readln(t, n);
    if n[1] in ['0'..'9'] Then
    begin
      Insert('(', n, 1);
      Insert(')', n, Length(n) + 1);
    end;
  end;
end;
 
procedure copy(var t: text; var c: text);//процедура копирования входного текстового файла в отдельный
var
  st: char;
begin
  reset(t);
  assign(c, 'copy.txt');//связь кода с файлом для копии
  rewrite(c);
  while not eof(t) do
  begin
    read(t, st);
    write(c, st);
  end;
    {writeln(c);
    readln(t, st);}
  close(c);
end;
 
procedure output(var t: text; var tOut: text; n: string);//процедура вывода результатов на экран и в отдельный текстовый файл
begin
  assign(tOut, 'output.txt');
  rewrite(tOut);
  writeln(tOut, 'converted text ', n);
  close(tOut);
  close(t);
  writeln('converted text ', n);
end;
//основная программа
var
  sen: string;
  name: string;
  textIn, textOut, textCopy: text;
 
begin
  clrscr;//очистка экрана
  Writeln('The program puts the left parenthesis, and at the end of the line - the right parenthesis, if the line starts with a number ');
  input(name, textIn);
  calc(textIn, sen);
  copy(textIn, textCopy);
  output(textIn, textOut, sen);
  readln;
end.