Здравствуйте, dasha.voloshina37!

Код Delphi последовательно выполняет все задания:
[code lang=pascal h=300]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
StringGrid1: TStringGrid;
procedure FormCreate(Sender: TObject);
procedure StringGridKeyPress(Sender: TObject; var Key: Char);
private { Private declarations }
public { Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.StringGrid1.RowCount:=1;
Form1.StringGrid1.ColCount:=6;
Form1.StringGrid1.Height:=(Form1.StringGrid1.RowCount+1)*Form1.StringGrid1.DefaultRowHeight;
Form1.StringGrid1.Width:=(Form1.StringGrid1.ColCount+1)*Form1.StringGrid1.DefaultColWidth;
Form1.Width:=Form1.StringGrid1.Width+20;
Form1.Height:=Form1.Label1.Top+Form1.Label1.Height+10+ Form1.StringGrid1.Top+Form1.StringGrid1.Height+10;
Form1.Label1.Caption:='1) please enter array[1..'+IntToStr(Form1.StringGrid1.ColCount-1)+']';
end;
procedure TForm1.StringGridKeyPress(Sender: TObject; var Key: Char);
var
a:string;
b,c,d,e:integer;
begin
case Key of
'0'..'9':Form1.StringGrid1.Cells[Form1.StringGrid1.Col,Form1.StringGrid1.Row]:=Form1.StringGrid1.Cells[Form1.StringGrid1.Col,Form1.StringGrid1.Row]+Key;
#8:begin
a:=Form1.StringGrid1.Cells[Form1.StringGrid1.Col,Form1.StringGrid1.Row];
Delete(a,length(a),1);
Form1.StringGrid1.Cells[Form1.StringGrid1.Col,Form1.StringGrid1.Row]:=a;
end;
'-':if length(Form1.StringGrid1.Cells[Form1.StringGrid1.Col,Form1.StringGrid1.Row])=0then Form1.StringGrid1.Cells[Form1.StringGrid1.Col,Form1.StringGrid1.Row]:=Key else Key:=chr(0);
#13:if Form1.StringGrid1.Col<Form1.StringGrid1.ColCount-1 then Form1.StringGrid1.Col:=Form1.StringGrid1.Col+1
else if Form1.StringGrid1.Row<Form1.StringGrid1.RowCount-1 then
begin
Form1.StringGrid1.Row:=Form1.StringGrid1.Row+1;
Form1.StringGrid1.Col:=0;
end
else
begin
a:=Form1.Label1.Caption;
case a[1] of
'1':begin
b:=0;
c:=0;
for d:=0 to Form1.StringGrid1.ColCount-1 do if StrToInt(Form1.StringGrid1.Cells[d,0])<0 then
begin
b:=b+StrToInt(Form1.StringGrid1.Cells[d,0]);
inc(c);
end;
if c>0 then
begin
Form1.Label1.Caption:='1) result:='+FloatToStr(b/c);
repeat
a:='';
for c:=0 to Form1.StringGrid1.ColCount-2 do
if StrToInt(Form1.StringGrid1.Cells[c,0])<StrToInt(Form1.StringGrid1.Cells[c+1,0])then
begin
a:=Form1.StringGrid1.Cells[c,0];
Form1.StringGrid1.Cells[c,0]:=Form1.StringGrid1.Cells[c+1,0];
Form1.StringGrid1.Cells[c+1,0]:=a;
end;
Form1.Refresh;
Sleep(5000);
until length(a)=0;
Form1.StringGrid1.RowCount:=5;
Form1.StringGrid1.Height:=(Form1.StringGrid1.RowCount+1)*Form1.StringGrid1.DefaultRowHeight;
Form1.Height:=Form1.Label1.Top+Form1.Label1.Height+10+ Form1.StringGrid1.Top+Form1.StringGrid1.Height+10;
Form1.Label1.Caption:='2) please enter matrix['+IntToStr(Form1.StringGrid1.RowCount)+'x'+IntToStr(Form1.StringGrid1.ColCount)+']'
end else Form1.Label1.Caption:='1) no negative numbers, please again';
Form1.StringGrid1.Row:=0;
Form1.StringGrid1.Col:=0;
for c:=0 to Form1.StringGrid1.ColCount-1 do Form1.StringGrid1.Cells[c,0]:='';
Form1.Refresh;
sleep(5000);
end;
'2':begin
d:=0;
e:=0;
for b:=0 to Form1.StringGrid1.RowCount-1 do
for c:=0 to Form1.StringGrid1.ColCount-1 do
if StrToInt(Form1.StringGrid1.Cells[c,b])>StrToInt(Form1.StringGrid1.Cells[d,e])then
begin
d:=c;
e:=b;
end;
a:=Form1.StringGrid1.Cells[0,0];
Form1.StringGrid1.Cells[0,0]:=Form1.StringGrid1.Cells[d,e];
Form1.StringGrid1.Cells[d,e]:=a;
Form1.Refresh;
Form1.StringGrid1.Refresh;
Sleep(9000);
for b:=0 to Form1.StringGrid1.RowCount-1 do
begin
repeat
a:='';
d:=1-2*(b mod 2);
for c:=0 to Form1.StringGrid1.ColCount-2 do
if (d*StrToInt(Form1.StringGrid1.Cells[c,b]))<(d*StrToInt(Form1.StringGrid1.Cells[c+1,b]))then
begin
a:=Form1.StringGrid1.Cells[c,b];
Form1.StringGrid1.Cells[c,b]:=Form1.StringGrid1.Cells[c+1,b];
Form1.StringGrid1.Cells[c+1,b]:=a;
end;
Form1.Refresh;
Sleep(5000);
until length(a)=0;
end;
Form1.Label1.Caption:='job stoped';
end;
end;
end;
else Key:=chr(0);
end;
end;
end.[/code]

Удачи!