Сортировка массива строк

[StanPBH]

Последняя осталась! Не осилю никак!!!

Дана строка, состоящая из 9 слов. За последним словом точка. Напечатать последовательность тех же слов, но в порядке, обратном алфавитному.

И еще,

Распечатать анкетные данные студентов, получивших не более двух оценок 4, а остальные оценки 5.
program laba8;
uses crt;
type
student=record
f:string[20];
gr:real;
o:array[1..4] of integer;
end;
var
list:array[1..3] of student;
i,j:integer;
s:real;
begin
clrscr;
for i:=1 to 3 do begin
writeln('Vvedite familiu i god rozhdenia ',i,'-go studenta');
readln(list[i].f,list[i].gr);
for j:=1 to 4 do begin
write('Ocenka',j,' '); read(list[i].o[j]);
end;
end;
for i:=1 to 3 do begin
s:=0;
for j:=1 to 4 do
if ((list[i].o[j])=4) or ((list[i].o[j])=5) then s:=s+list[i].o[j];
if s>17 then writeln(list[i].f,' ',list[i].gr:4:0);
end;
repeat until keypressed;
end.
почему-то при вводе фамилии 2-го студента тайп масмач пишет??

[ATL]

readln(list[i].f,list[i].gr);

Ошибка, видимо, тут.

[StanPBH]

Понятно, что где-то тут. Но в чем именно косяк?? данные на первого студента нормально вводятся!!

[StanPBH]

Ну помогите решить то задачку:
Дана строка, состоящая из 9 слов. За последним словом точка. Напечатать последовательность тех же слов, но в порядке, обратном алфавитному.

[StanPBH]

Что, никто не знает? С остальными со всеми разобрался.
Осталась только эта!!
Дана строка, состоящая из 9 слов. За последним словом точка. Напечатать последовательность тех же слов, но в порядке, обратном алфавитному.

[Shuraken]

Как разделяются слова? Разделителем или пробелом?

[StanPBH]

разделяются побелами. слова разделил, загнал в масссив осталось отсортировать. КАК СОРТИРОВАНТЬ МАССИВ, СОСТОЯЩИЙ из String?

[Shuraken]

А зачем тебе массив. Загоняешь в TStringList и делаешь в нем Sort и все.

[RSLoader]

КАК СОРТИРОВАНТЬ МАССИВ, СОСТОЯЩИЙ из String?

Над строками определены операции сравнения, поэтому сортировка массива строк ничем не отличается от сортировки массива чисел. Вот, например, сортировка обменом:

var
  mas:array[1..9] of String;
  s:String;
  i,k:Integer;
begin
  for i:=1 to 9 do readln(mas[i]);
  for k:=9 downto 2 do
  for i:=1 to k-1 do
  if mas[i]<mas[i+1] then
  begin
    s:=mas[i];
    mas[i]:=mas[i+1];
    mas[i+1]:=s;
  end;
  for i:=1 to 9 do writeln(mas[i]);
  readln;
end.

[StanPBH]

RSLoader, спасибо, так и сделал :-) Тема закрытта.