Найти минимальный элемент массива из 10 элементов, который заполняется вводом двухзначных чисел с клавиатуры. блок схему и программу qbasic

//прога на pascal`е var a: array of longint; n, i: longint; // procedure zam(var a, b: longint); var pz: longint; beginpz: =a; a: =b; b: =pz; end;   procedure selectsort (rm : longint; var sortmas: array of longint); vari, j, min: longint; begin        for i: =0 to rm-2 dobeginmin: =i; for j: =i to rm-1 doif sortmas[min]> sortmas[j] then min: =j;           if i< > min then zam (sortmas[i], sortmas[min]); end; end; // beginrandomize; readln (n); setlength (a, n); for i: =0 to n-1 doa[i]: =random (2*1000000000) - 1000000000; writeln (a); selectsort (n, a); writeln (a); end.

Program n1; var i, n: integer; x,y : array[1..100] of integer; per: real; function dlina(x1,x2,y1,y2 : integer) : real; begin dlina : = sqrt(sqr(x2-x1) + sqr(y2-y1)); end; begin write('введите кол-во сторон: '); readln(n); per : = 0; write('введите x1 координату: '); readln(x[1]); write('введите y1 координату: '); readln(y[1]); for i: =2 to n do begin write('введите х',i,' координату: '); readln(x[i]); write('введите y',i,' координату: '); readln(y[i]); per : = per + dlina(x[i-1],y[i-1],x[i],y[i]); end; per : = per + dlina(x[i],y[i],x[1],y[1]); writeln('периметр искомого ',n,' угольника',per); readln; end.