Во внешнем файле имеется несколько целых чисел (до 10). При нажатии на кнопку

А для создания, настройки и поддержания работы всего этого нужны соответствующие кадры – люди «цифровых» профессий. На рынке сейчас существует огромная недостача этих самых кадров, хотя человечество еще даже наполовину не приблизилось к полноценной цифровой трансформации. Например, по оценке директора ФРИИ Кирилла Варламова, дефицит кадров в российской сфере информационных технологий составляет около 200-400 тысяч человек. По данным сервиса HeadHunter, рост количества вакансий в IT превышает рост общего числа вакансий в 1,5 раза.Рынок IT-профессий развивается быстрыми темпами, вбирая в себя всё новые сферы. Как отмечают рекрутеры, знание английского языка перестало быть конкурентным преимуществом, потому что им более-менее владеют все. На смену английскому пришли языки программирования.Но не смотря на то, на каком языке программирования будет в дальнейшем писать специалист, знание основ, например таких как работа с файлами или сортировка данных, является важным и основополагающими факторомЛазарус– отличный, бесплатный компилятор который подойдет для ежедневного использования, как новичкам, так и продвинутым пользователям, благодаря удобно расположенным кнопкам и интуитивно понятному интерфейсу. С первого дня можно начать разработку своего приложения.Сортировка пузырьком (bubblesort) – один из самых простых для понимания методов сортировки.Алгоритм выполняет повторяющиеся проходы по массиву. Во время каждого прохода сортируемые элементы попарно сравниваются, и если порядок в паре неверный, элементы меняются местами (отсюда второе название – сортировка простыми обменами).Работа с файлами – типичная и очень частая задача в программировании. Является ключевой для понимания принципов работы программ.В данной курсовой работе были получены и закреплены навыки по работе с Lazarus, изучены методы чтения из файла, записи в файл и метод сортировки чисел «пузырьки».Цель работы достигнута, задачи выполнены.Список литературыГОСТ 34.602-89 Информационная технология. Комплекс стандартов на автома-тизированные системы. Техническое задание на создание автоматизированной системы [Текст]. – Взамен ГОСТ 24.201-85; введ. 01.01.1990. – Москва: ФГУП «Стандартинформ», 2009. – 11 с.Борковский, А. Б. Англо-русский словарь по программированию и информати-ке (с толкованиями) [Текст] / А. Б. Борковский. – Москва: ИНФРА, 2000. – 335 с.Бородкин, А. И. Методы прикладной математики и информатики в историче-ских исследованиях: автореф. дис. доктора.истор. наук [Текст] / А. И. Бород-кин – Москва: Дрофа, 1993. – 21 с.Семакин, И. Г. Основы алгоритмизации и программирования [Текст]: учеб-ник для студ.учрежденийсред.проф.образования / И.Г. Семакин, А.П. Шеста-ков. - Москва: Академия, 2014. – 304 с.Шишов, О. В. Современные технологии и технические средства информати-зации [Текст]: учебник / О. В. Шишов. – Москва: ИНФРА, 2017. – 462 с.Чернова, С. М. Энциклопедия программиста [Текст]: универс. энцикл. / С. М. Чернова. – Москва: Академия, 2012. – 508 с.Приложение 1(обязательное)ЛистингunitUnit1;{$modeobjfpc}{$H+}interfaceuses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;type{ TForm1 } TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Label1: TLabel; Memo1: TMemo; Panel1: TPanel; Panel2: TPanel;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);privateprocedureOpenFile(filename: string);procedureSaveFile(filename: string; list: TStrings);publicend;var Form1: TForm1;implementation{$R *.lfm}{ TForm1 }procedure TForm1.OpenFile(filename: string);vartf: TextFile;str: string;begin memo1.Clear;AssignFile(tf, filename);tryReset(tf);while not EOF(tf) dobeginReadLn(tf, str);memo1.Append(str);end;finallyCloseFile(tf);Label1.Caption := 'Количествоцифр: ' + IntToStr(memo1.Lines.Count);end;end;procedure TForm1.SaveFile(filename: string; list: TStrings);vari: integer;tf: TextFile;beginAssignFile(tf, filename);tryReWrite(tf);fori := 0 to list.Count - 1 doWriteLn(tf, list[i]);finallyCloseFile(tf);end;end;functionMySort(list: TStrings): TStrings;vara, b: Integer;c, d: string;beginfor a := 0 to list.Count - 1 dobeginfor b := 0 to list.Count - 1 - a dobeginif b + 1 = list.Count thencontinue;ifStrToInt(list.Strings[b]) > StrToInt(list.Strings[b + 1]) thenbeginc := list.Strings[b];d := list.Strings[b + 1];list.Strings[b] := d;list.Strings[b + 1] := c;end;end;end;Result := list;end;procedure TForm1.Button1Click(Sender: TObject);beginOpenFile('TextFile.txt');end;procedure TForm1.Button2Click(Sender: TObject);beginmemo1.Lines := MySort(memo1.Lines);end;procedure TForm1.Button3Click(Sender: TObject);beginSaveFile('TextFile-out.txt', memo1.Lines);end;end.