Определите, являются ли числа в файле упорядоченными по возрастанию

@Ьфыеук · Регистрация: 13.12.2013

Author24 — интернет-сервис помощи студентам

Помогите перевезти из Паскаля в Делфи
Пусть дан файл целых чисел. Определите, являются ли числа в файле упорядоченными по возрастанию.В Делфи надо использовать Memo и в ответе писало "Да" или "Нет" Вот код в Паскале:

Pascal

var
    f: text;
    c: integer;
    i:integer;
    flag:boolean;
    e:array[1..100] of integer;
begin
    assign (f, 'input.txt');
    reset (f);
 i:=0;
   while not(eof(f)) do  begin 
    inc(i);
        read (f, e[i]);
       end;
    for c:=1 to i-1 do begin
    
    if e[c]<e[c+1] then flag:=true
    else flag:=false;
    end;
  for c:=1 to i do
  writeln (e[c]);
    close (f);
    if flag=true then 
    writeln('Да')
    else 
    writeln('Нет');
 
readln
end.

@just_freelance · 21.03.2014, 15:43

Delphi

var
f: textfile;
c: integer;
i:integer;
flag:boolean;
e:array[1..100] of integer;
begin
assignfile (f, 'input.txt');
reset (f);
i:=0;
while not(eof(f)) do begin
inc(i);
read (f, e[i]);
end;
for c:=1 to i-1 do begin
 
if e[c]<e[c+1] then flag:=true
else flag:=false;
end;
for c:=1 to i do
writeln (e[c]);
close (f);
if flag=true then
writeln('Да')
else
writeln('Нет');
 
readln
end.

@Ьфыеук · 21.03.2014, 15:49 **[ТС]**

Да я это сделал но мне нужно чтобы текст переместился в Memo и работал с Memo а не с файлом.

Добавлено через 1 минуту
Сравнивал числа из Memo, а не с файла.

@volvo · 21.03.2014, 15:52

Ьфыеук, во-первых, приказы тут отдавать не надо. Во-вторых, если тебе надо перевести откуда-то не Дельфи, то вопрос было бы логичнее задавать в форуме Дельфи, не кажется тебе?

@Ьфыеук · 21.03.2014, 15:53 **[ТС]**

простите я тут новичок

@Ьфыеук 0 / 0 / 0 Регистрация: 13.12.2013 Сообщений: 20
	21.03.2014, 15:49 [ТС]	3
	Да я это сделал но мне нужно чтобы текст переместился в Memo и работал с Memo а не с файлом. Добавлено через 1 минуту Сравнивал числа из Memo, а не с файла. 0

@volvo Супер-модератор 32991 / 21297 / 8180 Регистрация: 22.10.2011 Сообщений: 36,592 Записей в блоге: 8
	21.03.2014, 15:52	4
	Ьфыеук, во-первых, приказы тут отдавать не надо. Во-вторых, если тебе надо перевести откуда-то не Дельфи, то вопрос было бы логичнее задавать в форуме Дельфи, не кажется тебе? 0

@Ьфыеук 0 / 0 / 0 Регистрация: 13.12.2013 Сообщений: 20
	21.03.2014, 15:53 [ТС]	5
	простите я тут новичок 0