Вводятся коорданаты 4 точек (каждая точка задается двумя координатами) определить составляет ли эти 4 точки прямоугольник (на с#) Мало времени

— осуществление диалога с пользователем;— ввод-вывод и управление данными;— планирование и организация процесса обработки программ;— распределение ресурсов (оперативной памяти и кэша, процессора, внешних устройств);— запуск программ на выполнение;— всевозможные вс операции обслуживания;— передача информации между различными внутренними устройствами;— программная поддержка работы периферийных устройств (дисплея, клавиатуры, дисковых накопителей, принтера и др.).— организация среды взаимодействия и обмена информацией между работающими программами.

Var st,stMax1,stMax:string;
    L,i,maxA,colA:integer;
    begin
 readln(st);{считываем строку}
 L:=length(st);{получаем длину строки}
 colA:=0;{количество букв а в слове}
 maxA:=0;{максимальное количество букв а в слове}
 stMax1:='';{то, куда мы будем записывать слово}

 for i:=1 to L do begin {проходим по строке L раз}
  if ((st[i]<>' ') and (st[i]<>'.') and (st[i]<>'!') and (st[i]<>'?')) then {если символ не пробел, не точка, не воскл. знак и не вопрос. знак то записываем в строку одну букву}
  stMax1:=stMax1+st[i];{буква+буква+буква} 
  
  if (st[i]='а') then colA:=colA+1;{если считываемая буква-а то увеличиваем счётчик букв а в слове}
  
  if (st[i]=' ') or (st[i]='.') or (st[i]='!') or (st[i]='?') then
begin{если дошли до конца слова то...}

    if (maxA<colA) then begin maxA:=colA; stMax:=stMax1 end;{если количество 'а' в слове больше макс. кол-ва 'а' в одном из слов, то максимальное кол-во приравниваем к кол-ву, строку приравниваем к этому слову(stMax:=stMax1)}

    stMax1:='';  {обнуляем слово}
    colA:=0;  {обнуляем счётчик 'а'}
  end;
 end;
writeln(stMax);
write(maxA); end.