В файле input. txt записаны числа (в столбик) известено что их не более 100. Отсортировать массив по убыванию последней цифры и записать его в файл output. txt

program zz1;

var

n, i, j, k: integer; / / задаем переменные целого типа

f1, f2: text; / / задаем переменную текстового типа для работы с файлом

mas:array[1 ... 100] of integer;

begin

assign (f1, 'input. txt'); / / связываем переменную текстового типа с файлом

reset (f1); / / открываем файл для чтения

assign (f2, 'output. txt');

rewrite (f2); / / открываем файл для записи

while not eof (f1) do

begin

i:=i + 1;

readln (f1, mas[i]);

end;

n:=i;

for i : = 1 to n-1 do

for j : = 1 to n-i do

if mas[j] mod 10 > mas[j+1] mod 10 then begin

k : = mas[j];

mas[j] : = mas[j+1];

mas[j+1] : = k

end;

for i:=1 to n do

writeln (f2, mas[i]); / / выводим ответ

close (f1); / / закрываем файл input

close (f2); / / закрываем файл output

end.