unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes,Variants, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,ShellAPI, Windows, Buttons, ExtCtrls, StdCtrls;

type

  {LIST}
  TPElem = ^TElem;
  TElem = record
    Data : integer;
    PointNext : TPElem;
  end;
  {Список.}
  TDList = record
  PointBeg, PointEnd : TPElem;
   end;
   { TForm1 }
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Edit1: TEdit;
    ListBox1: TListBox;
    ListBox2: TListBox;
    ListBox3: TListBox;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
  private

  public
  end;

var
  Form1: TForm1;

implementation
var
n : integer;
List1, List2 : TDList;
ListForm : TForm1;
{$R *.lfm}

{ TForm1 }
{Create list}

procedure Create_Zero_List(var a: TDList; n : integer);
var
i : integer;
Elem : TPElem;
begin
  a.PointEnd := nil;
  a.PointBeg := nil;
  for i := 0 to n-1 do begin
    New(Elem);
    Elem^.Data := 0;
    Elem^.PointNext := nil;
    if a.PointBeg = nil then begin
       a.PointBeg := Elem;
    end
    else begin
       a.PointEnd^.PointNext := Elem;
    end;
    a.PointEnd := Elem;
  end;
end;
function Slianie(var list1, list2, a: TPElem; n1, n2: integer): TPElem;
var s1 : TDList;
s : TPElem;
n3: integer;
begin
  n3 := n1 + n2;
  Create_Zero_List(s1,n3);
  s := s1.PointBeg;
  while (list1 <> nil) and (list2 <> nil) do begin
    if list1^.Data <= list2^.Data then begin
       s^.Data := list1^.Data;
       s := s^.PointNext;
       list1 := list1^.PointNext;
    end
    else begin
       s^.Data := list2^.Data;
       s := s^.PointNext;
       list2 := list2^.PointNext;
      end;
  end;
  if list1 = nil then begin
      while list2 <> nil do begin
        s^.Data := list2^.Data;
        s := s^.PointNext;
        list2 := list2^.PointNext;
      end;
  end
  else begin
     while list1 <> nil do begin
       s^.Data := list1^.Data;
       s := s^.PointNext;
       list1 := list1^.PointNext;
     end;
  end;
  Slianie := s1.PointBeg;
end;
procedure MergeSort(var a: TPElem; n : integer);
var p1, p2: TPElem;
k, i : integer;
begin
  if n > 1 then begin
     k := n div 2;
     p1 := a;
     for i := 1 to k-1 do begin
       p1 := p1^.PointNext;
     end;
     p2 := p1^.PointNext;
     p1^.PointNext := nil;
     p1 := a;
     MergeSort(p1, k);
     MergeSort(p2, n-k);
     a := Slianie(p1, p2, a, k, n-k);
  end;
end;


procedure Create_List(var a: TDList; n : integer);
var
i : integer;
Elem : TPElem;
begin
  randomize;
  a.PointEnd := nil;
  a.PointBeg := nil;
  for i := 0 to n-1 do begin
    New(Elem);
    Elem^.Data := random(1999)-999;
    Elem^.PointNext := nil;
    if a.PointBeg = nil then begin
       a.PointBeg := Elem;
    end
    else begin
       a.PointEnd^.PointNext := Elem;
    end;
    a.PointEnd := Elem;
  end;
end;
procedure Create_List_Order(var a: TDList; n : integer);
var
i,k : integer;
Elem : TPElem;
begin
  randomize;
  k := -1000;
  a.PointEnd := nil;
  a.PointBeg := nil;
  for i := 0 to n-1 do begin
    New(Elem);
    Elem^.Data := random(1999)-999;
    while Elem^.Data < k do begin
        Elem^.Data := random(1999)-999;
    end;
    k := Elem^.Data;
    Elem^.PointNext := nil;
    if a.PointBeg = nil then begin
       a.PointBeg := Elem;
    end
    else begin
       a.PointEnd^.PointNext := Elem;
    end;
    a.PointEnd := Elem;
  end;
end;

procedure Writer1(var a : TDList; n : integer);
var Elem : TPElem;
begin
  Form1.ListBox1.Clear;
  if n <= 40 then begin
  Elem := a.PointBeg;
  if Elem = nil then begin
     Form1.ListBox1.Items.Add('--');
     end
  else begin
    While Elem <> nil do begin
      if Elem <> a.PointEnd then begin
         Form1.ListBox1.Items.Add(IntToStr(Elem^.Data));
         Elem := Elem^.PointNext;
      end
      else begin
        Form1.ListBox1.Items.Add(IntToStr(Elem^.Data));
        break;
      end;
    end;
  end;
  end
  else
     Form1.ListBox1.Items.Add('SOCHI KLASS!!!');
end;
procedure Writer2(var a : TDList; n : integer);
var Elem : TPElem;
begin
  Form1.ListBox2.Clear;
  if n <= 40 then begin
  Elem := a.PointBeg;
  if Elem = nil then begin
     Form1.ListBox2.Items.Add('--');
     end
  else begin
    While Elem <> nil do begin
      if Elem <> a.PointEnd then begin
         Form1.ListBox2.Items.Add(IntToStr(Elem^.Data));
         Elem := Elem^.PointNext;
      end
      else begin
        Form1.ListBox2.Items.Add(IntToStr(Elem^.Data));
        break;
      end;
    end;
  end;
  end
  else
     Form1.ListBox2.Items.Add('SOCHI KLASS!!!');
end;
procedure Writer3(var a : TDList; n : integer);
var Elem : TPElem;
begin
  Form1.ListBox3.Clear;
  Elem := a.PointBeg;
  if Elem = nil then begin
     Form1.ListBox3.Items.Add('--');
     end
  else begin
    While Elem <> nil do begin
      if Elem <> a.PointEnd then begin
         Form1.ListBox3.Items.Add(IntToStr(Elem^.Data));
         Elem := Elem^.PointNext;
      end
      else begin
        Form1.ListBox3.Items.Add(IntToStr(Elem^.Data));
        break;
      end;
    end;
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   n := StrToInt(Edit1.Text);
   Create_List(List1, n);
   if n <= 40 then begin
   Writer1(List1, n)
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    n := StrToInt(Edit1.Text);
   Create_List_Order(List2, n);
   if n <= 40 then begin
   Writer2(List2, n)
   end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  n := StrToInt(Edit1.Text);
  MergeSort(List1.PointBeg, n);
  if n <= 40 then begin
  Writer3(List1, n);
  end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Close;
end;
procedure TForm1.Button6Click(Sender: TObject);
var err_code: integer;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add('Укажите файл');
  if OpenDialog1.Execute then begin
     if FileExists(OpenDialog1.FileName) then begin
        Memo1.Lines.Add('Открыт Файл ' + OpenDialog1.FileName);
        if OpenDialog1.Execute then begin
        err_code := ShellExecute(Handle, 'open', PChar(OpenDialog1.FileName), nil, nil, SW_SHOW)
        end;
     end
     else Memo1.Lines.Add('Файл ' + OpenDialog1.FileName + ' не найден');
  end
  else;
end;
procedure TForm1.Button5Click(Sender : TObject);
var
outf : textfile;
Elem : TPElem;
begin
   Memo1.Lines.Clear;
   Memo1.Lines.Add('Укажите файл для сохранения');
   if OpenDialog1.Execute then begin
   assignfile(outf,OpenDialog1.FileName);
   rewrite(outf);
   Elem := List1.PointBeg;
   if Elem = nil then begin
     write(outf, '--');
     end
  else begin
    While Elem <> nil do begin
      if Elem <> List1.PointEnd then begin
         write(outf, Elem^.Data, ' ');
         Elem := Elem^.PointNext;
      end
      else begin
        write(outf, Elem^.Data, ' ');
        break;
      end;
    end;
  end;
  closefile(outf);
  Memo1.Lines.Clear;
  Memo1.Lines.Add('Список записан в файл' + OpenDialog1.FileName);
   end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Memo1Change(Sender: TObject);
begin

end;

end.