Обработка текстового файла, Помогите пожалуйста Опции

[Grey-99]

Помогите пожалуйста с этой программой

Задача:Создать текстовый файл, в котором содержаться сведения о рабочих( Фамилия, Инициалы, Зарплата)
К примеру:
Петров ИИ 1200
Сидоров ПР 2000
Попов КП 3000

Надо считать эти записи, и отсортировать по зарплате. Использовать процедуры.
Вот такие пероги. Если кто может помочь, помогите пожалуйста.

Сообщение отредактировано: Grey-99 - 27.12.2006 16:31

[Grey-99]

Просто я не знаю как написать процедуру обработки текстового файла, по-этому и обратился за помощью к знающим людям

Вот процедура доступа outputfile:

type base = RECORD
name, ini:string;
money: integer;
END;

mass = array [1..n] of string;


var people : array [1..100] of base;
nm : base;
f: text; m:mass i,j:integer;

procedure outputfile(var q:integer);
var i:integer;
begin
assign (f,'D:\Delphi7\Rabotnik.txt');
reset(f);
i:=1;
repeat
readln(f,m[i]);
inc(i);
until eof(f);
close (f);
q:=i;
end;


begin

outputfile(p);
readln;
end.

Сообщение отредактировано: Grey-99 - 27.12.2006 16:16