"в файле даны имена пользователь вводит имя с клавиатуры и если это имя есть в файле оно выводится на экран, нужно написать на Паскале авс"

Для выполнения этой задачи на Паскале можно использовать следующий код:

var
  файл: Text;
  имя, текущее_имя: string;
  есть_ли_имя: boolean;

begin
  есть_ли_имя := False;
  Assign(файл, 'имена.txt');
  Reset(файл);

  Write('Введите имя: ');
  Readln(имя);

  while not EOF(файл) do
  begin
    Readln(файл, текущее_имя);

    if текущее_имя = имя then
    begin
      есть_ли_имя := True;
      Writeln('Имя найдено в файле: ', имя);
      Break;
    end;
  end;

  if not есть_ли_имя then
    Writeln('Имя не найдено в файле: ', имя);
  
  Close(файл);
end.

Помните, что в данном примере предполагается, что файл "имена.txt" содержит имена, каждое имя на отдельной строке.