Что мне нужно поменять для того чтобы в текстовом файле напечатать ряд который имеет в себе %

Program OBR_TEXT;
Var
temp: string;
T:Text; // опис змінної текстового файлу
name:String; // для кожного імені файлу
S:String; // для кожного рядка файлу
max_s:String; // найдовший рядок файлу
i,kil_red_file, kil_zv, kil_red_slov:BYTE; // для кількості рядків, зірочок, для рядків з парною кількістю рядків
Begin
Writeln ('вкажіть імя файлу');
Read (name); // читаємо імя файлу
Assign (T,name);
{$+Y} // дозвіл реагувати на приривання
Reset (T);
{$-Y} // заборонна реагувати на приривання
If FileEXISTS(name)=false // якщо файл хибно відкритий для читання, тобто не існує
Then Begin
Write ('файл не існує');
Close (T);
Exit; // вихід із програми
End;
// визначення кількості рядків файлу, які починаються +
kil_red_file:=0;
Writeln ('рядки файлу');
While NOT EOF (T) DO
Begin
Readln (T,S);
Writeln (S);
temp := copy(s,1,1);
if(temp='%')then
INC (kil_red_file);
End;
Writeln ('файл скаладається із  ', kil_red_file,'  рядків'); //закінчення визначення кількості рядків
Close (T);Reset (T);
Close (T);
end.

While NOT EOF (T) DO
  Begin
   Readln (T,S);
   if pos('%',s)>0 then Writeln (S);
 End;