Текстовые файлы. Определить первый из символов файла f1,имеющийся в файле f2.

Program z17;
uses crt;
var s,s1: string;
    i,j: integer;
    f1,f2:text;
    b:char;
begin
assign(f1,'f1.txt');
write('Введите данные первого файла ');
rewrite(f1);
readln(s);write(f1,s);
close(f1);
assign(f2,'f2.txt');
write('Введите данные второго файла ');
rewrite(f2);
readln(s1); write(f2,s1);
close(f2);
s:=s+' ';
s1:=s1+' ';
reset(f1); reset(f2);      //открываю файлы для чтения
read(f1,s);  read(f2,s1);   //читаю файлы
 
for j:=1 to length(s1) do     //перебираю символы во 2 файле
  for i:=1 to length(s) do  //перебираю символы в 1 файле
 
    if (s[i]<>' ') and (s1[j]<>' ')   then
      if s[i]=s1[j] then  b:=s[i];
 
      writeln('первый символ файла f1 который имеется в файле f2 - "', b,'"');
        close(f1);close(f2);
end.

Program Z17;
var s,s1: string;
    i,j,k: integer;
    f1,f2:text;
    b:char;
begin
assign(f1,'f1.txt');
write('Введите данные первого файла ');
rewrite(f1);
readln(s);write(f1,s);
close(f1);
assign(f2,'f2.txt');
write('Введите данные второго файла ');
rewrite(f2);
readln(s1); write(f2,s1);
close(f2);
reset(f1); reset(f2);      //открываю файля для чтения
read(f1,s);  read(f2,s1);   //читаю файлы
 k:=0;
for i:=1 to length(s) do //перебираю символы в 1 файле
  for j:=1 to length(s1) do  //перебираю символы во 2 файле
   begin
    if (s[i]<>' ') and (s1[j]<>' ')   then
      if s[i]=s1[j] then begin b:=s[i];
      k:=k+1;                     // запускаю счетчик совпадших букв
        if k=1 then  writeln( 'первый символ имеющийся в файле f2 "',b,'"');
      end;   end;
      if k=0 then  writeln('таких букв нет');
        close(f1);close(f2);
end.