Строки. Очереди. Проверка на пробел

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    Label4: TLabel;
    Button3: TButton;
    Label5: TLabel;
    XPManifest1: TXPManifest;
    Label6: TLabel;
    Button4: TButton;
    Label7: TLabel;
    Edit2: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button4Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  type
  TItem=integer;
  PNode=^Node;
 
  Node=record
    data: TItem;
    next: PNode;
  end;
 
var
  Form1: TForm1;
 
var list, alist, ilist, llist, aalist, iilist : pnode;
    s, v                                      : integer;
    a, b, c, k, t                             : integer;
 
implementation
 
{$R *.dfm}
 
 
Procedure make(var work, wor: Pnode; x: Titem);
begin
  new(work);
  work^.data:=x;
  work^.next:=nil;
  wor:=work;
end;
 
 
procedure insertn(var work, wor: pnode; x: titem);
var work1: pnode;
begin
  new(work1);
  work1^.data:=x;
  work1^.next:=Nil;
  work^.next:=work1;
  work:=work1;
end;
 
 
procedure deln(var work, wor: pnode; var y: titem);
var work1: Pnode;
begin
  work1:=wor;
  wor:=work1^.next;
  work1^.next:=nil;
  y:=Work1^.data;
  dispose(work1);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var n, i : integer;
begin
  s:=length(Edit1.Text);
  v:=length(Edit2.Text);
  k:=0;
  t:=0;
  a:=StrToInt(Edit1.Text[1]);
  b:=StrToInt(Edit2.Text[1])*10+StrToInt(Edit2.Text[2]);
  make(list,llist, a);
  make(alist,aalist, b);
  for i:=2 to s do
    begin
      if Edit1.Text[i]<>' ' then
        begin
          a:=StrToInt(Edit1.Text[i]);
          insertn(list, llist, a);
          k:=k+1;
        end;
    end;
  n:=3;
  while n<=v do
    begin
      if Edit2.Text[n]<>' ' then
      //while edit2.Text do
 
        begin
          b:=StrToInt(Edit2.Text[n])*10+StrToInt(Edit2.Text[n+1]);
          insertn(alist,aalist, b);
          n:=n+2;
          t:=t+1;
        end
      else
        begin
          n:=n+1;
        end;
    end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;
 
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  while (llist<>nil) and (aalist<>nil) and (iilist<>nil) do
    begin
      deln(alist,aalist,b);
      deln(list,llist,a);
      deln(ilist,iilist,c);
    end;
  Edit1.Text:='';
  Edit2.Text:='';
  Label5.Caption:='';
  Label10.Caption:='';
  Label8.Caption:='';
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not ( key in ['0'..'9', #8, #32]) then key:=#0;
end;
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not ( key in ['0'..'9', #8, #32]) then key:=#0;
end;
 
 
procedure TForm1.Button4Click(Sender: TObject);
var flag: boolean;
begin
  if k<>t then
    begin
      ShowMessage('Неравное число элементов очередей');
      exit;
    end;
      flag:= false;
      while (llist<>nil) and (aalist<>nil) do
        begin
          deln(alist,aalist,b);
          deln(list,llist,a);  c:=a*b;
          if flag then
            insertn(ilist,iilist,c)
          else
          begin
            make(ilist,iilist,a*b);
            flag:=true;
          end;
          Label8.Caption:=Label8.Caption+IntToStr(a)+' ';
          Label5.Caption:=Label5.Caption+IntToStr(b)+' ';
         
 
 
        end;
      while iilist<>nil do
        begin
           deln(ilist,iilist,c);
           Label10.Caption:=Label10.Caption+IntToStr(c)+' ';
 
        end;
    end;
end.