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

Вот код на Паскале для выполнения данной задачи:

program FindName;
var
  namesFile : text; // Файл с именами
  name : string; // Имя, введенное с клавиатуры
  nameFound : boolean; // Флаг для обозначения нахождения имени в файле
  currentName : string; // Текущее имя из файла

begin
  assign(namesFile, 'имена.txt'); // Устанавливаем файл с именами
  
  // Открываем файл для чтения
  reset(namesFile);
  
  nameFound := False;
  
  // Читаем имена из файла до его конца
  while not eof(namesFile) do
  begin
    readln(namesFile, currentName);
    
    // Проверяем, является ли текущее имя равным введенному
    if currentName = name then
    begin
      nameFound := True;
      writeln('Имя найдено в файле: ', currentName);
    end;
  end;
  
  // Закрываем файл
  close(namesFile);
  
  // Если имя не было найдено, выводим сообщение об этом
  if not nameFound then
    writeln('Имя не найдено в файле.');
end.

Примечание: Замените 'имена.txt' в строке assign(namesFile, 'имена.txt'); на имя вашего файла с именами. Убедитесь, что файл с именами находится в той же папке, что и исполняемый файл программы.