Помогите пожалуйста написать на паскале!Введите массив ADR[1..10],элементами которого являются адреса студентов в формате:город улица дом квартира.Вывести те элементы ,которые содержат город"Краснодар".Ввод и вывод данных оформите разными цветами.

uses crt;var ADR:array[1..10] of string;sub:array[1..10] of string;i,k:integer;s:string;begin;for i:=1 to 10 dobegin;writeln('Input town of ',i,'student');readln(s);ADR[i]:=ADR[i]+s+' ';writeln('Input street of ',i,'student');readln(s);ADR[i]:=ADR[i]+s+' ';writeln('Input house of ',i,'student');readln(s);ADR[i]:=ADR[i]+s+' ';writeln('Input apartament of ',i,'student');readln(s);ADR[i]:=ADR[i]+s;if pos('Краснодар',ADR[i])<>0 thenbegin;inc(k);sub[k]:=ADR[i];end;end;TextColor(4);writeln('Result:');for i:=1 to k dowriteln(sub[i]);end.