Работа с потоком Опции

[18192123]

В поток записана последовательность целых чисел. Найти минимум и максимум и поменять их местами, не используя дополнительных потоков.

Начала я с того, что попыталась сосчитать первое число, чтоб было с чем сравнивать...
Проблема в том, что если в файле одно число - то оно фиксируется и выводиться (в компонент Memo) как надо, но если больше - приложение вылетает с ошибкой " '1-е число из файла' is not a valid integer value"..
структура файла:
11
22
56
...
и т.д

Объясните, как исправить, чтоб отработало без ошибок?

procedure TForm1.Convert;
var
  i, j, k: Word;
  c: Char;
  l,numb,min,max: Integer;
  str:string;
  f: Boolean;
  S: TStream; // переменная потокового типа
begin
  S := TFileStream.Create(FName, fmOpenReadWrite);
  //загружаем в поток типа FileStream содержимое файла FName
  //тело алгоритма
  with S do
  begin
    Position := 0; // установка указателя потока в начало
    i := 0;
    k := Size; // в k - размер потока в байтах
    Read(c,1);
    j:=1;
    while (c<>#10)and(i<=k-1) do
      begin
          inc(i);
          inc(j);
          str:=str+c;
          read(c,1);
      end;
    min:=StrToInt(str);
 
    memo1.Lines.Add(IntToStr(min));
    end
end;

Сообщение отредактировано: 18192123 - 24.04.2008 14:14

[18192123]

Снова я что-то напутала...Результаты работы приложения далеко не те, какими должны быть..

Содержимое файла:
45
2
3
1

Результат:
45
2
3
145

Содержимое файла:
1
2
3
45

Результат:
1452
3

1

2

1

dif:=Length(IntToStr(max)) - Length(IntToStr(min));
if pos_max < pos_min then
          begin
            i := pos_max + length(IntToStr(min));
            position:=i;
            while i < pos_min do begin
              help[i] := help[i + dif];
              inc(i);
              write(help[i],1);
            end;

            str := inttostr(min);
            position:= pos_max + i - 1;
            for i := 1 to length(str) do begin
              //help[pos_max + i - 1] := str[i];
              write(str[i],1);//write(help[pos_max + i - 1],1);
            end;
            str := inttostr(max);
            position:= pos_min - dif + i - 1;
            for i := 1 to length(str) do begin
              //help[pos_min - dif + i - 1] := str[i];
              write(str[i],1);//write(help[pos_min - dif + i - 1],1);
            end;
          end {end if pos_max < pos_min}
        else
          begin
            i := pos_max + length(inttostr(min)) - 1;
            position:=i;
            while i - dif > pos_min do begin
              help[i] := help[i - dif];
              dec(i);
              write(help[i],1);
            end;

            str := inttostr(min);
            position:= pos_max + dif + i - 1;
            for i := 1 to length(str) do begin
              //help[pos_max + dif + i - 1] := str[i];
              write(str[i],1);//write(help[pos_max + dif + i - 1],1);
            end;
            str := inttostr(max);
            position:= pos_min + i - 1;
            for i := 1 to length(str) do begin
              //help[pos_min + i - 1] := str[i];
              write(str[i],1);//write(help[pos_min + i - 1],1);
            end;
          end; {end else pos_max < pos_min}
       

Уже и не знаю, что я снова не правильно делаю..Объясните пожалуста!..