Файли )

[ALABAMA]

В каждой строке матрицы С (4,4) определить первый отрицательное элемент и его индекса.

[Roof]

program my_array;
uses crt;
const
  n = 4; //размерность матрицы
var
  a: array[1..n, 1..n] of real; // сама матрица :)
  first_otr: real;//последнее отрицательное значение в строке
  check: boolean; //проверка есть ли вообще отрицательные в строке
  i, j: byte; //счетчики
  iotr, jotr: byte; //  индексы последнего отрицательного в строке
begin
  clrscr; //очищаем экран
  randomize;
  Writeln('Matrica:');
  //заполняем случайными значениями матрицу и выводим на экран
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(100)/10-5;
      write(a[i, j]: 4: 2, '  ');
    end;
    writeln;
  end;
  //находим последние отрицательные элементы и выводим на экран
  Writeln('Indexi i znacheniya pervih otric. elementov:');
  for i := 1 to n do
  begin
    check := false; // считаем, что нету отрицательных
    for j := 1 to n do
    begin
      if (a[i, j] < 0) then // если отрицательные появились,
      begin // то запоминаем индексы и значение
        check := true;
        iotr := i;
        jotr := j;
        first_otr := a[i, j];
        break;  //обрываем дальнейшую обработку строки
      end
    end;
    if check then
      Writeln('Stroka ', i, ': ', iotr, ' ', jotr, ' Zna4enie', first_otr: 4: 2)
    else
      Writeln('Stroka ', i, ' net otricatelnih elementov');
  end;
  readln;
end.

Только темы называй содержательнее. Название Файли и твое задание никак несвязаны.

[ALABAMA]

в предедущей проге каторую ты написал надо создать файл и записать в него числовую матрицу

[Shust]

написать программы создания и обработки файла.
Задание
Каждая запись файла содержит поля:
-ФИО
-Стаж
-Образование
Вывести сведения о работниках с высшим образованием и стажем работы не более 5 лет.Результат вывести отсортировав по ФИО.