Фрагмент вида )
x:=0.5
for I:=1 to 4 do
x:=x*2
x:=x+1​

Открываете раздел по языку набираете ключевое слово: string.  Смотрите все процедуры и функции, для работы с переменными типа string 
 Находите описание функции Pos

function Pos(subs,s: string): integer;
        Возвращает позицию подстроки subs в строке s. Если не найдена, возвращает 0 

Если строка subs входит в строку s, то функция возвращает значение, большее нуля, номер первого символа в сроке s, начиная с которого, строка subs входит в строку s.
Например,  subs:='123';    s:='785123456';  k: integer;
k:=Pos(subs,s);   значение переменной k = 4;
Второй пример:   subs:='123;  s:=623145;
k:=Pos(subs,s);  k =0;   строка subs не входит в строку s

Блок-схема - в прилагаемом файле.
const n=5;
var
a:array[1..n,1..n] of integer;
i,j,min,imin,jmin:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
min:=a[1,2]; imin:=1; jmin:=2;
for i:=1 to n do
for j:=i+1 to n do
if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end;
writeln('min = a[',imin,',',jmin,'] = ',min);
end.

Пример:
Исходный массив:
  89  93   3  59  57
  15  57   5  65  85
   8   5  60  95  17
  83  67  21  20  93
  30  96  53  26  17
min = a[1,3] = 3