Текстовые файлы

program zd2;
var t1:text;
s1,str:string; i,sum:integer;
begin
assign(t1, 'местоположение файла');
reset(t1);
writeln('Исходный файл: ');
while not Eof(t1) do
begin
readln(t1,s1);
writeln(s1);
end;
 
writeln('Сумма четных чисел: ');
while not eof(t1) do
begin
read(t1,s1);
for i:=1 to 10 do
if i mod 2=0 then
sum:=sum+i;
end;
write('Введите элемент для поиска: ');
readln(str);
while not eof(t1) do
   begin
    readln(t1,str);
    if pos(str,s1)>0 then
    writeln('Элемент ',str,' присутствует.')
    else
    writeln('Элемент отсутствует.');
   end;
close(t1);
end.

while not seekeof(t1) do
read(f1,i);

var t1:text;
    a,b,s,k:integer;
begin
assign(t1, '1.txt');
reset(t1);
write('Введите число для поиска b=');
readln(b);
k:=0;
s:=0;
writeln('Исходный файл: ');
while not SeekEof(t1) do
 begin
  read(t1,a);
  write(a,' ');
  if a=b then k:=1;
  if a mod 2=0 then s:=s+a;
 end;
 close(t1);
writeln;
writeln('Сумма четных чисел=',s);
if k=1 then writeln('Элемент ',b,' присутствует.')
else writeln('Элемент ',b,'отсутствует.');
 
end.