После компиляции ошибка exception eaccessviolation in module

program Project1;
 
{$APPTYPE CONSOLE}
{Дана строка символов, состоящая из натуральных чисел, разделенных пробелами.Выведите четные числа этой стро-ки.}
uses
  SysUtils;
 
var
  st,str:string;
 
procedure vvodstr(var st:string);
//Ввод строки
var
  f:TextFile;
begin
  AssignFile(f,'f.txt');
  Reset(f);
  readln(f,st);
  CloseFile(f);
end;
 
function mn(st:string):string;
//Поиск чётных чисел в строке
var
  k,i,t:integer;
begin
  t:=1;
  k:=0;
  for i:=1 to Length(st) do
  begin
    k:=StrToInt(st[i]) mod 2;
    if k=0 then
    begin
      str[t]:=st[i];
    end;
    Inc(t);
  end;
  mn:=str;
end;
 
procedure vivodres;
// Вывод результата
var
  fout:TextFile;
begin
  AssignFile(fout,'f2.txt');
  Rewrite(fout);
  writeln(fout,'chetnie chisla= ',mn(st));
  CloseFile(fout);
end;
begin
  vvodstr(st);
  vivodres;
end.