Рейтинг стран по результатам олимпийских соревнований (Delphi -> С++ Builder)

unit olimp_;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, StdCtrls, ExtCtrls;
type
private
public
end; 
var
Forml: TForml;
implementation 
{$R *.DFM}
procedure TForml.FormActivate(Sender: TObject);
 begin
tabl.Cells[0,0]:='Країна';
tabl.Cells [1,0] -'Золотих' ;
tabl.Cells[2,0]:='Срібних';
tabl.Cells[3,0]:='Бронзових';
tabl.Cells[4,0]:='Всього медалей';
tabl.Cells[5,0]:='Балів';
tabl.Cells[0,1]:='Україна';
tabl.Cells[0,2]:='Білорусія';
tabl.Cells[0,3]:='Англія';
tabl.Cells[0,4]:='Германія';
tabl.Cells[0,5]:='Італія';
tabl.Cells[0,6]: ='Китай' ;
tabl.Cells[0,7]:='Корея';
tabl.Cells[0,8]:='Куба';
tabl.Cells[0,9]:='Нідерланди';
tabl.Cells[0,10]: = 'Россія' ;
tabl.Cells[0,11]:='США';
tabl.Cells[0,12]:='Франція';
tabl.Cells[0,13]:='Японія';
 end;
procedure TForm1.Button1Click(Sender: TObject); 
// процедура для кнопки «Підсумок» 
var
c,r:integer; {номер стовпчика та номер рядка таб¬лиці}
s:integer;// всього медалей у команди 
р:integer;// балів у команди
m: integer;// номер ряда з максимальною кількістю балів 
buf:array[0..5] of string; // буфер для обміну рядків 
і:integer;// номер рядка — використовується у впо¬рядку ванні
begin
for r:=l to tabl.rowcount do 
// опрацювати всі рядки begin
s: =0 ; //загальна кількість медалей?
for c: =1 to 3 do
if tabl.cells[c,r] <>’ ‘
then s:=s+StrToInt(tabl.cells[c,r])
else tabl.cells[c,r]: = '0' ;
// загальна кількість балів
p:=7*StrToInt(tabl.cells[1,r])+
6*StrToInt(tabl.cells[2 , r] ) +
5*StrToInt(tabl.cells[3,r]) ;
// виведення результатів
tabl.cells[4,r]:=IntToStr(s); // всього медалей
tabl.cells[5,r]:=IntToStr(p); // всього балів 
end;
{впорядкування таблиці за спаданням — по 5-му стовп¬чику}
// впорядкування методом вибору
 for r:=l to tabl.rowcount-1 do begin
m:=r; // найбільший елемент — в r-му рядку 
for i:=r to tabl.rowcount-1 do
if StrToInt(tabl.cells[5,i])> StrToInt(tabl.cells[5,m]) then m:=i; 
if r <> m then begin
for c:=0 to 5 do begin
buf[c]:=tabl.Cells[c,r]; tabl.Cells[c,r]:=tabl.Cells[c,m]; tabl.Cells[c,m]:=buf[c];
end; 
end; end; 
end;
 
 
procedure TForml.Button2Click(Sender: TObject); // процедура для кнопки «Добавити» 
begin
if Editl.Text=’ ‘ then 
begin
MessageDlg('Введіть    назву    країни!',    mtError, [mbOK] ,0) ;
exit;
end;
{вставка нового порожнього рядка в кінець таб¬лиці}
{якщо таблиця на момент внесення нових даних по¬рожняво новий рядок не додається}
if (Tabl.RowCount<>2) or (Tabl.Cells[0,1]<>’ ‘) then Tabl.RowCount:=Tabl.RowCount+1;
// заповнення комірок останнього рядка таблиці
Tabl.Cells[0,Tabl.RowCount-1]:=Editl.text;
// доданий рядок стає поточним
Tabl.Row:=Tabl.RowCount-1;
Editl.Text:='';
end;
procedure TForml.Button3Click(Sender: TObject);
// процедура для кнопки «Вилучити»
var і:integer;
begin
{якщо в таблиці є тільки два рядки, то рядок не вилучається, а очищується}
if Tabl.RowCount=2 then begin Tabl.Rows[1].Clear; 
exit;
end;
// зсув рядків угору, починаючи з поточного
for i:=tabl.Row to tabl.RowCount-1 do Tabl.Rows[i]:=Tabl.Rows[i+1];
//вилучення останнього рядка
tabl.RowCount:=tabl.RowCount-1;
end;
end.