помогите пожалуйста решить 2 задачи

[Hot sunny day]

1. Создать калькулятор телефона САМСУНГ, ввести строку с арифметическими операциями: „<число> арифметическая операция <число> арифметическая операция <число>”. Например: 10-5*60.
2. Дан массив 4*4.Ввести числа самостоятельно, и вывести рядом с каждой строкой минимальное число. Например:

-32 -1 25 -94 -94
39 99 61 3 3
46 12 59 20 12
87 6 -28 67 -28

[motaro]

2

program new;
uses crt;
var a:array [1..4,1..4] of integer;
    i,j,k,min:integer;
begin
 clrscr;
 k:=1;
 for i:=1 to 4 do
  begin
   for j:=1 to 4 do
    begin
     write ('Введите ',i,'.',j,'-й элемент массива: ');
     readln (a[i,j]);
    end;
  end;
 writeln;
 for i:=1 to 4 do
  begin
   min:=a[k,j];
   for j:=1 to 4 do
    begin
     if a[k,j]<min then min:=a[k,j];
     textcolor (lightgray);
     write (a[i,j]:4);
    end;
    textcolor (red);
    write ('   ',min);
    k:=k+1;
    writeln;
  end;
 readln
end.

[Hot sunny day]

2motaro, спасибо.