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

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

program SearchName;
var
  fileInput: text;
  name: string;
  found: boolean;

begin
  assign(fileInput, 'имена.txt');
  reset(fileInput);

  writeln('Введите имя для поиска:');
  readln(name);

  while not eof(fileInput) do
  begin
    readln(fileInput);
    if name = fileInput then
    begin
      writeln('Имя найдено в файле: ', fileInput);
      found := true;
    end;
  end;

  if not found then
    writeln('Имя не найдено в файле.');

  close(fileInput);
  readln;
end.

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