Cортировка массива методом "пузырька"

  • Автор темы ddj
  • Дата начала
D
#1
Cортировка массива методом "пузырька"
Програма реализирует масив состоящий из string типов елементов и их сортирует до указынавого
елемента с меншего до большего , а дальше (после указынавого елемента) с большего до меньшего елемента. Програма читает данные(текст) с news.txt файла.Ответ выдаёт на екране.
В файле будет текст , сортировка с А до Z.

Код:
program prog1;

Type mas=array[1..3000] of Char;

var	fail			 :text;
k,rezult,n	 :integer;
masyvo_element:integer;
i,j				 :integer; {indexy masiva}
s				 :string;
masyv		 :mas;

BEGIN 

repeat
writeln ('Vvedite nazvanije faila:');
writeln('Faily: dom.txt,news.txt');
Write('>> ');
readln(s);
assign(fail,s);
{$I-}
Reset(fail);
{$I+}
rezult := IOResult;
if rezult <> 0 then
writeln('ERROR!');
until rezult=0;
{
While not eof(fail) do
}
Begin
writeLn('S kokogo simbola sortiruem?');
ReadLn(fail,masyv[i]);
{ }
End;
Begin
{ metod puzyria }
for i:=1 to k-1 do
for j:=1 to k-i do
if masyv[j]>masyv[j+1] then
begin
masyvo_element:=masyv[j];
masyv[j]:=masyv[j+1];
masyv[j+1]:=masyvo_element;
end;


End;
Close(fail);
end.
Помогите исправить ошибки и докончить роботу.Человеческое спасибо.