3 4
1 1
3 4
1 1
5 3
1 1
2 3
0 0
-1 -1

program RASSTOIANIE_MESHDU_TOCHKAMI;

var
f:text;
intI,intB,intM:integer;
MasKorToc:array [1..30,1..2] of integer;
tmpI,MaxRast,tmpRast:real;
goodToch:array[1..30,1..2] of integer;

begin                           
assign(f,'input.txt');
reset(f);
intM:=1;

while eof(f) = false do begin
readln(f,MasKorToc[intM,1],MasKorToc[intM,2]);
writeln('Position = ',intM,' X = ',MasKorToc[intM,1],' Y = ',MasKorToc[intM,2]);
intM:=intM+1;
end;

intM:=intM-1;

for intI:=1 to intM do begin
for intB:=1 to intM do begin

tmpI:=(MasKorToc[intI,1]-MasKorToc[intB,1])*(MasKorToc[intI,1]-MasKorToc[intB,1]);
tmpRast:=sqrt(tmpI+(MasKorToc[intI,2]-MasKorToc[intB,2])*(MasKorToc[intI,2]-MasKorToc[intB,2]));
if tmpRast>MaxRast then begin
goodToch[1,1]:=intI;
goodToch[1,2]:=intB;
MaxRast:=TmpRast;
end;
end;
end;
writeln;
writeln('Maksimalbnoe rasstoianie mezhdu tochkami: ',goodToch[1,1],' i ',goodToch[1,2]);

close(f);
readln;
end.

3 4
1 1
5 3
1 1
2 3
0 0
-1 -1

Position = 1 X = 3 Y = 4
Position = 2 X = 1 Y = 1
Position = 3 X = 5 Y = 3
Position = 4 X = 1 Y = 1
Position = 5 X = 2 Y = 3
Position = 6 X = 0 Y = 0
Position = 7 X = -1 Y = -1

Maksimalbnoe rasstoianie mezhdu tochkami: 3 i 7

6 6
3 4
1 1
5 3
1 1
2 3
0 0

Position = 1 X = 6 Y = 6
Position = 2 X = 3 Y = 4
Position = 3 X = 1 Y = 1
Position = 4 X = 5 Y = 3
Position = 5 X = 1 Y = 1
Position = 6 X = 2 Y = 3
Position = 7 X = 0 Y = 0

Maksimalbnoe rasstoianie mezhdu tochkami: 1 i 7

program MASSIV_ELEMENT_PLUS_X;

var
Ishod:array [1..10] of string;
intI:integer;

begin
writeln('Ishodnui massiv');
for intI:=1 to 10 do begin
str(intI*100,Ishod[intI]);
writeln('Element ',intI,' = ',Ishod[intI]);
end;
writeln;
writeln('Preobrazovannui massiv');
for intI:=1 to 10 do begin
Ishod[intI]:= Ishod[intI]+'10';
writeln('Element ',intI,' = ',Ishod[intI]);
end;

readln;
end.

Результат работы:
Ishodnui massiv
Element 1 = 100
Element 2 = 200
Element 3 = 300
Element 4 = 400
Element 5 = 500
Element 6 = 600
Element 7 = 700
Element 8 = 800
Element 9 = 900
Element 10 = 1000

Preobrazovannui massiv
Element 1 = 10010
Element 2 = 20010
Element 3 = 30010
Element 4 = 40010
Element 5 = 50010
Element 6 = 60010
Element 7 = 70010
Element 8 = 80010
Element 9 = 90010
Element 10 = 100010

data segment
  old_cs dw ?; для хранения «старого» вектора
  old_ip dw ?; прерываний с номером 5h

  Ubdate db 0; Что нажал пользователь
data ends

code segment
   assume cs:code, ds:data
start:
mov ax,data
mov ds,ax
call clrscr

; Запомним текущий вектор 5h
	mov  ax, 3505h
	int  21h
	
	mov  old_ip, bx
	mov  old_cs, es

; Подменим обработчик
	push ds			; DS:DX <- Новый обработчик
	mov  dx, offset Int_05h

	;mov  ax, seg Int_05h
	;mov  ds, ax

	mov  ax, 2505h
	int  21h		; Установили его
	pop  ds
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
mov bx,0

make_delay:
	mov ah,0
	mov al,ubdate
	test ax,ax
	jnz ekran
	jmp nenado
	ekran:
	  mov ubdate,0
	  ;действия
	nenado:
jmp make_delay

q:
	; Восстановливаем все назад
	push ds
	
	mov  dx, old_ip 
	mov  ax, old_cs
	mov  ds, ax
	mov  ah, 25h
	mov  al, 9h
	int  21h
	pop  ds
	
	mov  ax, 4C00h	; И выходим
	int  21h
jmp konec
;////////////////////////////////////////////////////////////////////////////////////////////////////
Int_05h proc
       cli		;Запрещаем прерывания
       push ax
       push bx
       push cx
       push dx
       push si
       push di
       push es		;и сегментные регистры
       push ds

      mov ubdate,1

       pop ds		;Восстановим сохраненные регистры
       pop es
       pop di
       pop si
       pop dx
       pop cx
       pop bx
       pop ax
       sti		;Разрешим прерывания
       iret		;Выход (возврат в прерванное место)...
Int_05h endp

CLRSCR proc naer   ;Очищает экран
  push ax
  mov ax, 03
  int 10h
  pop ax
  ret
CLRSCR endp

konec:
code ends
end start