Определение победителей

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, Menus;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    MainMenu1: TMainMenu;
    Memo1: TMemo;
    Memo2: TMemo;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Splitter1: TSplitter;
    procedure MenuItem1Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure MenuItem4Click(Sender: TObject);
    procedure MenuItem5Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
 
procedure TForm1.MenuItem1Click(Sender: TObject); {close}
begin
  Form1.Close;
end;
 
procedure TForm1.MenuItem3Click(Sender: TObject);{make}
var
    i, j, k, posName, n:longint;
    ires, iname, res0: integer;
    copyresult, name0: string;
    name1:array[1..3] of string;
    res1: array[1..3] of integer;
begin
n := 0;
for i := 0 to Memo1.Lines.Count-1 do
  if Trim(Memo1.Lines[i]) <> '' then Inc(n);
for i:=1 to 3 do res1[i]:=0;
for i:=1 to n do
  begin
  for ires := 0 to Memo1.Lines.Count - 1 do
    if Pos(#32, Memo1.Lines.Strings[ires]) <> 0 then
    begin
      res0 := strtoint(Copy(Memo1.Lines.Strings[ires], Pos( ' ', Memo1.Lines.Strings[ires] ) + 1, Length(Memo1.Lines.Strings[ires]) ));
      Break;
    end;
  begin
  for iname := 0 to Memo1.Lines.Count - 1 do
    if Pos(#32, Memo1.Lines.Strings[iname]) <> 0 then
    begin
      name0 := Copy(Memo1.Lines.Strings[iname], Pos(' ',Memo1.Lines.Strings[iname] ), Length(Memo1.Lines.Strings[iname]));
      Break;
    end;
  end;
    { ищем участнка в списке }
  posName:= 1;
  while (posName < 3) and (name1[posName] <> name0) do
    inc(posName);
    { ищем результат меньше, чем новый }
  k:= 1;
  while (k < posName) and (res1[k] >= res0) do
    inc(k);
    { если получен лучшй результат,... }
  if res1[k] < res0 then
  begin
    for j:=posName downto k+1 do
      begin
      res1[j]:= res1[j-1];
      name1[j]:= name1[j-1];
      end;
    res1[k]:= res0;
    name1[k]:= name0;
  end;
  end;
for i:=1 to 3 do
  begin
  Memo2.Lines.Add(name1);
  Memo2.Lines.Add(res1);
  end;
end;
 
procedure TForm1.MenuItem4Click(Sender: TObject); {open}
begin
  if OpenDialog1.Execute then
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
 
procedure TForm1.MenuItem5Click(Sender: TObject); {save}
 begin
   if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end.