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

[Grey-99]

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

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

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

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

[klem4]

uses crt;

const
  max_records = 100;

type

  TStrings = array[1..max_Records] of String;

  TFile = Text;

function ReadData(const fName: String; var S: TStrings): Integer;
var
  i: Integer;
  f: TFile;
begin

  assign(f, fName); reset(f);

  i := 0;

  while not(eof(f)) do begin
    inc(i);
    readln(f, S[i]);
  end;

  close(f);

  ReadData := i;
end;

function GetMoney(const S: String): Integer;
var
  value, e: Integer;
begin

  Val(
  Copy( Copy(s, Pos(' ', s) + 1, 255), POS(' ',Copy(s, Pos(' ', s) + 1, 255)),255),
  value,
  e);

  GetMoney := value;

end;

procedure Sort(var S: TStrings; const size: Integer);
var
  i, j: Integer;
  temp: String;
begin
  for i := size downto 2 do
   for j := 1 to i - 1 do
    if GetMOney(S[j]) <= GetMoney(S[j + 1]) then begin
      temp := S[j]; S[j] := S[j + 1]; S[j + 1] := temp;
    end;
end;

procedure WriteToFile(const fName: String; const S: TStrings; const size: Integer);
var
  f: TFile;
  i: Integer;
begin
  assign(f, fName); rewrite(f);
  for i := 1 to size do writeln(f, S[i]);
  Close(f);
end;

var
  S: TStrings;
  size: Integer;
begin
  size := ReadData('C:\forum.txt', S);
  Sort(S, size);
  WriteToFile('C:\forum.txt', S, size);
end.
 

[Grey-99]

Спасибо тебе огромное