[Ivanidius]

Оч. нужна помощь. Сессия через неделю, а застрял наглухо.

Задача: Дан набор слов, отсортировать так, чтобы конец предыдущего совпадал с началом следующего. тычет меня носом в те строчки, что красным, а я пытаюсь добыть первый и последний символы.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var a,b:array[1..5] of string;
    i,j:integer;
    nach,kon:char;
begin
for i:=1 to 5 do begin
a[i]:=StringGrid1.Cells[i-1,0];
end;
b[1]:=a[1];

for i:=1 to 4 do begin
  for j:=2 to 5 do begin

    nach:=b[i][1];
    kon:=a[j][Length(a[j])];

    if nach=kon then
      begin
        b[i+1]:=a[j];
      end;
  end;
end;

for i:=1 to 5 do begin
StringGrid2.Cells[i-1,0]:=b[i];
end;

end;

end.

Админ: Пользуемся тегами для оформления кода!